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INTRODUCCION 


Este libro está escrito especialmente para aquellos que han 
adoptado el sistema estándar MSX para iniciarse en los secre- 
tos de la programación. La elección de esta norma no podía ser 
más afortunada pues creemos firmemente en la necesidad de 
un estándar que terminase de una vez con la terrible Babel que 
rodea tanto a profesionales como aficionados de la informáti- 
ca personal. 

El objetivo es que este libro sea un complemento ideal del 
manual del usuario, de modo que explique con detalle todos 
aquellos puntos que creemos quedan oscuros y son imprescin- 
dibles de conocer para sacar un buen rendimiento al micro or- 
denador. 

En cada uno de los capítulos de este libro veremos con es- 
pecial detalle todas las instrucciones que son peculiares del 
sistema MSX y analizaremos en profundidad los dos potentes 
lenguajes auxiliares de programación, el generador de sonidos 
y efmacrolenguaje de gráficos. También veremos las posibili- 
dades de ampliación del sistema por medio de periféricos. 

Finalmente completa «LOS SECRETOS DEL MSX» una 
gran cantidad de programas relacionados directamente con la 
teoría expuesta y que serán los que en definitiva nos enseñarán 
a dominar el potente lenguaje MSX. 


J.C.G. y F.J.G. 
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GENERALIDADES 


DEL ORDENADOR PERSONAL AL ORDENADOR 
DOMESTICO 

Supongamos que usted tiene un ordenador personal; su- 
pongamos que también tiene un amigo y supongamos que a su 
vez ese amigo tiene otro ordenador. Todos estos supuestos 
concurren en el caso de los autores de este libro. Si imagina- 
mos todo esto nos encontraremos con un cuadro realmente co- 
tidiano, pero no por ello menos trágico. Los programas de uno 
difícilmente correrán en el micro del otro, será imposible cam- 
biar cintas y diskettes, e incluso listados y, obviamente, cartu- 
chos, dado que las diversas versiones de BASIC que corren en 
los diferentes micros son muy distintas. Basta echar un vistazo 
al manual de Spectrum, de Commodore o de Apple, por citar 
sólo algunos, para comprobar esta afirmación. 

De tal modo un programa enteramente escrito en BASIC 
debe de ser revisado con mucha atención antes de poder adap- 
tarlo a determinado micro. Incluso algunas marcas poseen in- 
compatibilidades entre sus distintos modelos y en ocasiones 
no es posible ni siquiera aprovechar las rutinas de utilidad en 
lenguaje máquina, y, desde luego, ni soñar en adquirir softwa- 
re de un fabricante que no sea el específico. 

Esta caótica situación se ha mantenido durante años debi- 
do a que ello beneficiaba a las grandes compañías ya estableci- 
das que a través de esta avispada política comercial pretendía 
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perpetuar su marca en el mercado internacional. Mientras fue- 
se la más vendida también sería más fácil encontrar software 
para ella y si se encontraba más software también se vendería 
más. 

La única solución viable para los fabricantes de nuevos or- 
denadores hasta ahora era la emulación, la copia lisa y llana. El 
mundo de los ordenadores medios de gestión personal se ha 
visto invadido por aparatos «clónicos» (reproducciones exac- 
tas del original copiado). Así aparecieron los clónicos de Ap- 
ple y posteriormente los del IBM PC el que sin embargo pare- 
ce que ha logrado imponer su estándar. En el terreno de los 
micro ordenadores la confusión era mayor. 

Es en este contexto en el que la industria japonesa de orde- 
nadores parece lanzar un rayo de luz y lo que en un principio 
fue concebido como una ofensiva comercial para dominar el 
mercado partiendo del aserto de que la unión hace la fuerza, se 
ha convertido en la esperanza de un sistema estándar unificado. 


Esta estandarización afecta a dos frentes: 

Material, pues permite el intercambio entre aparatos de la 
misma norma de todo tipo de periféricos, expansiones de 
memoria, cartuchos, etc., sin ninguna excepción ni necesi- 
dad de adaptaciones previas. 

Lógica, porque todos los programas, escritos en lenguaje 
máquina o BASIC-E, pueden introducirse desde cualquier 
periférico de almacenamiento -cartucho ROM, cassette, 
, diskette, etc.-, a cualquier aparato de la norma sin otra li- 
mitación que la de memoria necesaria para hacerlo correr, 
puesto que no todos los aparatos MSX disponen de la mis- 
ma memoria para el usuario. A esto hay que añadirle las 
amplias posibilidades de expansión de memoria, lo que fa- 
vorece la configuración def sistema por parte del propio 
usuario. 


Sin embargo, un sistema que pretende unificar el mercado 
necesita tener una calidad probada, que pueda mantenerse lar- 
go tiempo en marcha y gozando de buena salud. En este senti- 
do las grandes líneas que se han seguido para el sistema MSX 
han sido sencillas y en ellas no se ha buscado la innovación tec- 
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nológica, sino su eficacia. Es decir que los fabricantes han in- 
terpretado un inteligente término medio entre un lenguaje re- 
volucionario -el BASIC Microsoft Extended—, y un hardware 
clásico, que descansa sobre el microprocesador 280 de Zilog 
de probada calidad y rendimiento en el mercado de los micro 
ordenadores. 

Ahora bien, la posible creación de un estándar ha interesa- 
do tanto a usuarios como a profesionales del software. Ahora, 
gracias a ello, se pueden crear programas para un sistema que 
es apoyado por diversas marcas, lo que aumenta su posible 
mercado y limita los riesgos de un trabajo inútil, como en el 
caso de programar un ordenador fabricado por determinada 
firma sujeta a los avatares del mercado. 

En el caso de la norma MSX se pueden producir progra- 
mas para un amplio mercado con el aval de varias marcas. 

Este es el motivo por el cual hay que considerar de un 
modo especial lo que: es la filosofía MSX. En efecto, tras este 
sistema estándar se halla una cuidada filosofía del ordenador 
familiar a partir de la cual se desarrollan amplias posibilidades 
de interrupción, de salida para periféricos y una serie de ins- 
trucciones especializadas de su BASIC, que facilitan la inte- 
gración en el sistema de todos aquellos aparatos que estos in- 
geniosos japoneses nos han vendido previamente -cadena HI 
FI, equipo doméstico, iluminación, etc.-. Bastará repasar la 
lista de compañías adscritas a la norma para darnos cuenta de 
ello. Por ejemplo JVC está trabajando en el campo del Com- 
pact Disk y el vídeo lo mismo que Sony y Pioneer, y Yamaha 
incorpora un interface para un teclado musical que aprovecha 
al máximo las posibilidades del chip de sonido incluido en las 
especificaciones MSX. Verdaderamente, la introducción en el 
mercado de las marcas japonesas marca un nuevo hito en la in- 
formática familiar, teniendo en cuenta las cotas alcanzadas en 
campos como el del vídeo, y el sonido, con la consecuente re- 
ducción de precios al estandarizar posiciones comerciales y 
ofrecer mayores prestaciones al usuario. Quizás por ello Phi- 
lips, compañía europea que ofrece diversos modelos de orde- 
nadores de distinta capacidad, ha pagado alrededor de 
300.000 dólares por la licencia para fabricar un aparato MSX, 
aparte de los royaíties por aparato vendido, y sumarse así a la 
arrolladora ola japonesa en el campo de la micro informática. 
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ASI CONCIBIO MICROSOFT SU BASIC EXTENDED 

En el año 1982 Harry Fox y Alex Weiss, dos comerciantes 
de Nueva York dedicados a la importación de relojes desde 
Hong Kong, decidieron apuntarse al carro de las nuevas tec- 
nologías de consumo y diseñaron el hardware de un ordena- 
dor que debería fabricarse en la famosa colonia británica en 
Asia y no superar los 50 dólares de precio de coste. 

La estructura de este ordenador, que con el tiempo sería el 
Spectravídeo, se basaba en el microprocesador Z80 y su soft- 
ware de base (firmware), el producido por la firma norteame- 
ricana Microsoft. 

Kaye Nishi, vicepresidente de Microsoft, fue el encargado 
de llevar a término el proyecto. Nishi, excelente ingeniero y 
avispado comerciante, había ya obtenido un rotundo éxito con 
el Tandy 100, aparato diseñado por él para una marca japone- 
sa (Ky ocero), y que penetró totalmente en el mercado ameri- 
cano, abriéndole, consecuentemente, las puertas de los 

EE.UU. 

Pues bien, este inteligente ingeniero japonés diseñó un 
equipo que si bien aumentó su precio de coste a 80 dólares, 
disponía de expansión hasta 256 K., acceso a diversas posibili- 
dades de display y de gráficos, un macrolenguaje musical y, lo 
más importante, un sistema de interrupciones fácilmente pro- 
gramabas por el usuario que hacían posible el control de los 
dispositivos digitales electrodomésticos. Fue así como nació 
el Spectravídeo 318/328. 

Nishi, que debía de sentirse muy satisfecho de su trabajo, 
recibió un año después —enero de 1983—, de una serie de com- 
pañías niponas el encargo de crear un sistema estándar de or- 
denadores personales. Obviamente el ingeniero pensó en su 
trabajo realizado para Spectravídeo y en marzo negoció con 
Weiss y Fox el permiso para fabricar el modelo. Sobre el modo 
en que se desarrollaron las negociaciones poco se conoce, sin 
embargo el 17 de junio de 1983, William Gates y Kaye Nishi, 
dieron a conocer en Tokio el nuevo estándar, ligeramente dife- 
rente del SV328, pero lo suficientemente similar como para 
que fuesen compatibles por medio de un cartucho adaptador. 
De todos modos, más tarde se inició la fabricación del Spectra- 
vídeo 728 totalmente compatible con la norma. 
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TOSHIBA HX-10 32K 64K _ QWERTY 73 

YAMAHA CX-5M 32K 32K+16K QWERTY 73 Incorpora el MIDI (Musical 

Instrument Digital Interface) 

y generador FM de voces 

YASHICA YCÍ4 32K 64K+16K | QWERTY 73 Teclado muy profesional 















































Los primeros micro ordenadores MSX empezaron a co- 
mercializarse el otoño del mismo año 1983 y, en poco más de 
un año se han vendido sólo en Japón más de medio millón de 
aparatos. 

Ante el éxito, otras compañías japonesas, coreanas y la eu- 
ropea Philips se interesaron por el sistema. Al punto de que en 
España contamos con un importante número de fabricantes 
de la norma MSX que comercializan sus aparatos desde fina- 
les de 1984. 

Si además de la cantidad de marcas observamos el grado de 
introducción en el mercado y el prestigio de muchas de ellas, 
podemos confiar en un futuro despejado de dudas para aque- 
llos que adquieran un micro ordenador MSX. También es fácil 
suponer que el bajo precio con que se presenta el sistema 
MSX en el mercado, unido a la gran cantidad y variedad de 
software y periféricos, que puede generar debido a la compati- 
bilidad entre marcas, revolucionará lo que se conoce como in- 
formática familiar. 

No obstante el punto de mira de la competencia está pues- 
to en el mercado norteamericano, en el que hasta el momento 
el estándar MSX no tiene demasiada incidencia. Es posible 
que los fabricantes estén esperando tener más variedad de 
software y periféricos acoplados al sistema para lanzarlo en 
EE.UU. Este mercado es difícil, aunque ya ha sido penetrado 
por la industria japonesa en otros campos -alta fidelidad, au- 
tomotores, etc.-, y cuenta con un aliado interior, pues no de- 
bemos olvidar el Spectravídeo. Según los observadores más 
cualificados, el lanzamiento en Estados Unidos de la norma 
MSX se realizará en 1986 e irá acompañada y apoyada por una 
espectacular bajada de precios, que representaría sustituir la 
actual estructura de tarjetas LSI -circuitos integrados de gran 
tamaño—, por otras del tipo VLSI -circuitos de alta integra- 
ción-, los cuales sustentarían toda la circuitería del sistema 
MSX en una sola tarjeta. 

EL ORDENADOR MSX 

En términos muy simples un ordenador es una máquina 
que obedece órdenes para efectuar cálculos y operaciones ló- 
gicas. — J... 
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Para cumplir con su misión, el ordenador necesita dispo- 
ner de un almacén donde guarda las instrucciones que debe 
ejecutar y los datos sobre los que se efectuarán los cálculos y 
operaciones incluidas en el programa. 

Un programa es un conjunto de instrucciones con las que 
se alimenta un ordenador para realizar una misión determina- 
da. 

Así pues, vemos que un ordenador es una máquina abierta 
de ilimitadas posibilidades, que se compone de dos elemen- 
tos. Una parte física, es decir la máquina en sí, a la que se deno- 
mina hardware y otra parte conceptual, representada por las 
instrucciones que el ordenador debe interpretar y ejecutar 
para realizar determinada operación. Estas instrucciones que 
nacen útil al ordenador se denominan software y sin él la má- 
quina sólo es un montón de cables y circuitos lógicos sin nin- 
guna función a realizar. 

El software de un ordenador es lo que define las funciones 
hacia donde va dirigido. De modo que dos máquinas de idén- 
tico hardware pueden ejecutar funciones muy diferentes, se- 
gún el software con el que las alimentamos. 


ESQUEMA «A» 


Especificaciones Hardware MSX 

- Microprocesador Zílog 80A. 

- Interface programable (PPI) Intel 8255. 

- Procesador de vídeo Texas Instruments 9118A ó 9928A. 

- Unidad de memoria independiente para vídeo VRAM de 
16 K. 

- Generador programable de sonido (PSG) AY-3-8910 de 
General Instruments. 

- Unidad MSX ROM de 32 K. 

- Todos los MSX disponen de por lo menos 16 K de RAM. 

- Ranura para BUS (conexión externa para accesorios). 

El procesador dispone de 64 K de memoria organizada en 
grupos de cuatro «páginas» de 16 K. Cada una de estas páginas 
puede ser seleccionada de una de cuatro ranuras posibles (o es- 


13 


pacios de direccíonamiento). La ranura 0 está reservada para la 
placa del sistema. La ranura 1 está siempre disponible como 
zona libre de la máquina para conectar cartuchos externos. Si 
se accede a las ranuras 2 y 3 conectando un módulo de expan- 
sión suministrado por el fabricante, cualquiera de las «ranuras 
primarias» puede ser expandida utilizando el «módulo de ex- 
pansión de ranuras», dando lugar a cuatro ranuras secundarias 
por cada una primaria. El resultado final es un espacio de direc- 
ciones de un Megabyte en total sin incluir la Vídeo Ram 
(VRAM). 


EL HARDWARE 

La parte principal del hardware de un ordenador es la Uni- 
dad de Control. 

Unidad de Control. Su misión es seleccionarlas instruccio- 
nes contenidas en la memoria, decodifícarlas -interpretarlas-, 
y hacer que se ejecuten. SÍ la instrucción necesita de alguna 
operación lógica o aritmética la Unidad de Control transfiere 
los datos a la Unidad Lógica y Aritmética. 

La Unidad de Control, la Unidad Lógica y Aritmética y la 
Memoria forman el corazón del ordenador, constituyendo el 
Procesador Central. Las tres partes mencionadas integran una 
sola placa de tecnología muy avanzada -VLSI- (Very Long 
Scale Integration), a la que se denomina popularmente micro- 
procesador. 

Cada modelo de microprocesador dispone de un Código 
Máquina peculiar que facilita el fabricante. Este Código Má- 
quina está constituido por el conjunto de instrucciones ele- 
mentales que puede entender y ejecutar el ordenador siendo 
en consecuencia el lenguaje del micro procesador. 

Las instrucciones del Código Máquina sólo trabajan con 
datos binarios y mueven estos datos de la memoria a las distin- 
tas unidades del microprocesador y a los dispositivos periféri- 
cos conectados al ordenador y que comunican a éste con el ex- 
terior. Estos dispositivos realizan las funciones de recogida de 
datos (Input/Entrada), y la entrega de tales datos ya elabora- 
dos (Output/Salida). 
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ESQUEMA 1 



Los periféricos mínimos de que consta un sistema som Te- 
clado (entrada), pantalla de TV o monitor (salida) y cassettes 
para grabar o cargar programas y datos (entrada/ salida). A es- 
tos suelen añadirse otros como impresora y joysticks, pizarras, 
cats, ligh pen y un sinfín de accesorios adaptados ya a la norma 
MSX. 

El cassette puede ser sustituido por una unidad de disket- 
tes que si bien cumple la misma misión es mucho más rápida 
para llevarla a cabo. Tanto el cassette como el diskette es una 
memoria de almacenamiento o memoria secundaria que con- 
serva los datos y programas, mientras el ordenador se encarga 
de ejecutar otras tareas, ya que sólo puede contener un progra- 
ma en su memoria central. El siguiente esquema da una idea 
gráfica de lo antedicho: 
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ESQUEMA 2 



Tal como hemos señalado el microprocesador tiene su 
propio lenguaje y éste es lo que llamamos Código Máquina. 
Trabajar con él de un modo habitual es algo incómodo y engo- 
rroso, por lo que teniéndolo como base se han desarrollado 
otros lenguajes de más alto nivel que facilitan el trabajo del 
programador. 

La característica más importante de estos lenguajes de alto 
nivel es aquella que permite que con una sola sentencia o ins- 
trucción se ejecute una gran cantidad de instrucciones en Có- 
digo Máquina. Entre todos los lenguajes de alto nivel, el BA- 
SIC es quizás uno de los más desarrollados en su orientación 
hacia el problema. Es decir, que el programador se preocupa 
más de lo que quiere hacer que de cómo funciona la máquina, 
pues de lo contrario estaríamos ante un lenguaje orientado ha- 
cia la máquina. 

En el BASIC es tal la orientaciónhacia la solución del pro- 
blema que se suele hablar de lenguaje dialogal, es decir de un 
idioma que permite que el hecho de operar con el ordenador 
se convierte en un diálogo entre el hombre y la máquina, gra- 
cias a la variedad de instrucciones que permiten decirle al apa- 
rato que realice un mismo trabajo de formas muy diferentes. 
Esto es lo que hace posible que se hable de tal o cual estilo 
para referirse a la forma de trabajar de determinados progra- 
madores, del mismo modo que hablamos de los estilos de dis- 
tintos escritores. 
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CAPITULO I 


Construcción de programas 

Llamamos programa a una sucesión lógica de pasos tenden- 
tes a realizar una misión concreta. 

Estos pasos deben ser traducidos a un lenguaje inteligible 
por el ordenador (en este caso Basic) y ser introducidos por me- 
dio de algún periférico (teclado, lector de cassette, unidad de 
diskette, etc.). A partir de entonces, el ordenador lo traduce a 
una sucesión de números binarios con los que opera el micro- 
procesador. 

Un programa en BASIC no es sino la traducción mediante 
una serie de palabras clave (reservadas) de unas instrucciones 
concretas para trabajar con series de datos numéricos o alfanu- 
méricos, que pueden ser fijos (constantes) o evolucionar (varia- 
bles). 

Más adelante veremos las variables, constantes y palabras 
reservadas que utiliza el sistema MSX. 

Una de las grandes ventajas que nos proporciona la infor- 
mática, es el hecho de permitirnos trabajar con muchos datos 
que varían a medida que se va ejecutando el programa. Estos 
datos se denominan «variables». Debemos imaginarnos estas 
variables como depósitos de información, ya sea numérica o al- 
fanumérica, denominándose en este último caso cadenas. 
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El BASIC MSX puede ser utilizado en dos modos: directo y 

diferido. A/rcv 

En modo directo , las sentencias y comandos MÍA no van 
precedidas por números de líneas: se ejecutan a medida que se 
introducen. Los resultados de las operaciones aritméticas y ló- 
gicas pueden presentarse inmediatamente en la pantalla y alma- 
cenarse para su uso posterior; pero las instrucciones propia- 
mente dichas se borran después de la ejecución. El modo direc- 
to es útil para la corrección de programas y como calculadora 
en operaciones rápidas que no exijan un programa completo. 

El modo diferido es lo que otros llaman modo de programa. 
Las líneas de programa van precedidas por sus correspondiente 
números, y se archivan por ese orden en la memoria. Los pro- 
gramas se ejecutan en respuesta al comando RUN. 

Puede teclearse cualquiera línea lógica (formada por varias 
lineas físicas hasta un máximo de 255 carácteres) y al presionar 
la tecla RETURN, el ordenador examina lo tecleado y trata de 
realizar la tarea. 

Si la línea empieza con un número, ésta se almacena en la 
memoria para la posterior ejecución y si ya hubiera un progra- 
ma en memoria, se modifica la línea introducida sobre el pro- 
grama existente. En otro caso, si no hay número de línea, se su- 
pone que se ha tecleado un comando que ha de realizarse inme- 
diatamente. Él mensaje OK, es señal cíe que el BASIC ha vuelto 
a modo directo; esto ocurre cuando se termina de ejecutar el 
programa, cuando se da un error en el flujo del programa, o 
cuando se interrumpe con las teclas de control. 

Para optimizar los programas (corregir, simplificar, modifi- 
car) disponemos de un potente auxiliar: el EDITOR. 

El BASIC MSX, se compone de aproximadamente 150 
«expresiones» o palabras clave, las cuales se complemetan con 
varios subcomandos, o subórdenes que le complementan y am- 
plían. Estas palabras clave se pueden dividir en: 

COMANDOS 

FUNCIONES 

SENTENCIAS 

Los Comandos son palabras reservadas que se utilizan para 
modificar algún atributo del ordenador y de su operación. De- 
ben ser introducidos individualmente por el operador. Ejem- 
plos de Comandos son: RUN, LIST y NEW. 
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Los Comandos se pueden utilizar en modo directo; las Sen- 
tencias se utilizan habitualmente en líneas de programa. No 
obstante, unos y otros pueden ser utilizados de forma diferente 
para fines específicos. 

Las Sentencias son palabras reservadas que realizan la parte 
principal del trabajo en BASIC. Son procesadas automática- 
mente en orden secuencial —según número de línea— por el or- 
denador. 

Las Funciones se usan para el tratamiento de expresiones 
(lógicas o aritméticas). Toman argumentos que son evaluados y 
utilizados luego para realizar la operación definida. El resulta- 
do de dicha operación sustituye a la función cuando es invoca- 
da en la expresión de que se trate. 

En realidad las funciones enmascaran variables y constan- 
tes: por ejemplo, ABS es una función que cuando se aplica a 
una constante o variable la modifica dándonos su valor absolu- 
to y, excepto raras veces, no tiene sentido si no es aplicada a un 
valor concreto sea constante o variable. 

A continuación pasamos a detallar el conjunto de instruc- 
ciones BASIC MSX que serán tratadas en este texto. Algunas 
por ser típicas de cualquier BASIC, por lo tanto muy conoci- 
das, y detalladamente explicadas en todos los manuales, no se 
estudiarán y nos remitimos a los programas de ejemplo para en- 
tender su funcionamiento. Otras serán estudiadas con detalle 
dado su peculiar interés y, por fin, las instrucciones referentes a 
gráficos/sonido y gestión ae archivo, serán estudiadas separa- 
damente en sendos capítulos de este libro. 


ESQUEMA 3 


Instrucciones MSX BASIC 


ORDENES SISTEMATICAS 

AUTO 

CONT 

DELETE 

LIST 

LLIST 

NEW 

RENUM 

RUN 

TRON/TROFF 


- Numeración automática 

- Continúa la ejecución 

- Borra líneas 

- Listado de programa 

- Impresión de programa 

- Supresión del programa 

- Renumeración delprograma 

- Ejecución delprograma 

- Trazado de la ejecución 
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BUCLES Y RAMIFICACIONES 


FOR/NEXT/STEP 

GOSUB 

GOTO 

IF/THEN/ELSE 
ON... GOSUB 
ON...GOTO 
RETURN 


— Bucle 

— Llamada a subrutina 

— Salto a una línea del programa 

— Condición y decisión 

— Bifurcación condicional 

— Salto indicado 

— Fin de la subrutina 


DECLARACIONES 


DEFFN 

DEFDBL 

DEFINT 

DEFSGN 

DEFSTR 

DEFUSR 

DIM 

ERASE 


INTERRUPCIONES 


— Define una función 

— Define las variables del tipo «doble 
precisión» 

— Define las variables enteras 

— Define las variables del tipo «simple 
precisión» 

— Define el «tipo cadena» 

— Define una rutina en lenguaje 
máquina 

~ Define una tabla 

— Suprime una tabla 


INTERVAL ON/OFF/STOP - Paro/funcionamiento de intervalos 
ON INTERVAL GOSUB - Interrupción tras un intervalo 

ON STOP GOSUB - Interrupción al pulsar STOP 

STOP ON/OFF/STOP - Ignora/admite la interrupción 


TRATAMIENTO DE ERRORES 


ON ERROR GOTO 

RESUME 

ERROR 

ERL 

ERR 


- Salto si hay error 

- Continúa después de la corrección 

- Genera error definido por el usuario 

- Número de línea del error 
~ Código del error 


ORDENES DE USO GENERAL 

CLEAR - Borra las variables y reserva esp acio 

g ara cadena y otros usos 
Jatos del programa 
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END 

INPUT 

LET 

LINE INPUT 

LPRINT 

LPRINT USING 

OUT 

POKE 

PRINT 

PRINT USING 

READ 

REM 

RESTORE 

STOP 

SWAP 

WAIT 


— Fin del programa 

— Entrada por teclado 

— Asignación de variables 

— Entrada de cadena 

— Impresión 

— Impresión de un formato 

— Salida controlada de un bit 

— Escribe sobre la memoria 

— Escritura en la pantalla 

— Escritura en formato 

— Lectura de datos 

— Comentarios 

— Posiciona el puntero al inicio de 
los datos 

— Para provisional 

— Intercambia valores entre dos 
variables 

— Espera llegada de un bit 


FUNCIONES DE USO GENERAL 


BASE 

BIN$ 

CDBL 

CINT 

CSNG 

FIX 

FN 

FRE 

HEX$ 

INKEY$ 

INP 

INPUT$ 

INT 

LPO$ 

OCT$ 

PEEK 

RND 

SPC 

TAB 

TIME 

USR 

VARPTR 


— Organiza VRAM 

— Conversión en binario 

— Conversión en doble precisión 

— Conversión en enteros 

— Conversión en simple precisión 

— Supresión de decimales 

— Función del usuario 

— Memoria disponible 

— Conversión en hexadecimales 

— Modo tablero 

— Entrada controlada de un bit 

— Espera teclado 

— Produce un entero matemático 

— Posición del cursor impresora 

— Conversión de ocíales 

— Acceso de memoria (lectura) 

— Número aleatorio 

— Imprime espacios en blanco 

— Columnado del cursor 

— Reloj del sistema 

— Conversión de una cadena 
en números 

— Puntero de la posición de las variables 
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CALCULO 


ABS 

ATN 

eos 

EXP 

LOG 

SGN 

SING 

SQR 

TAN 


- Numeración automática 

- Arco tangente 

- Coseno 

- Exponencial 

- Logaritmo neperiano 

- Función signo 

- Seno 

- Raíz cuadrada 

- Tangente 


TRATAMIENTO DE CADENAS 


ASC 

CHR$ 


INSTR 

LEFT$ 

LEN 

MID$ 

RIGHT$ 

SPACE$ 

STR$ 

STRING$ 


- Valor ASCII de una cadena 

- Genera un carácter ASCII a partir 
de número. Es complementaría 

a la función ASC 

- Búsqueda de subcadena 

- Lado izquierdo de una cadena 

- Largo de una cadena 

- Medio de una cadena 

- Lado derecho de una cadena 

- Cadena de espacios 

~ Conversión de un número 
en cadena 

- Produce una cadena 
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CAPITULO II 


El potente editor «todo pantalla» 

Cuando se introduce un programa por primera vez en la 
máquina, habitualmente es preciso efectuar una serie de modi- 
ficaciones en su listado (intercalar alguna instrucción, modifi- 
car algún orden...). A toda la serie de recursos técnicos que nos 
brinda el sistema para efectuar estas correcciones lo denomina- 
mos EDITOR. 

Un Editor «todo pantalla» como el que llevan incorporados 
los aparatos de la norma MSX es francamente útil, puesto que 
teniendo en pantalla el listado podemos ir a cualquier sitio que 
deseemos con las teclas del cursor y efectuar los arreglos perti- 
nentes. Veamos que opciones nos proporciona este editor: 

LIST : Este comando es conocido de todos los usuarios de 
miniordenadores; pues -como es sabido- si colocamos LIST en 
modo directo y pulsamos RETURN inmediatamente aparecerá 
en pantalla el listado del programa que esté almacenado en la 
memoria. El BASIC MSX enriquece este comando con una se- 
rie de variantes que lo hacen aún más útil. Si después de LIST 
colocamos un número de línea, tan sólo se nos presentará en 
pantalla la línea especificada. Si en lugar de un solo número de 
línea especificamos dos separados por un guión (-), serán lista- 
das todas las líneas comprendidas entre las dos que hayamos es- 
crito. Podemos también escribir primero el guión y después un 
número de línea, lo que nos proporcionará el listado del pro- 
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grama desde el principio Hasta la línea indicada. También po- 
demos teclear un ñ.° de línea y tras él el guión, lo aue nos dará 
el listado de las líneas comprendidas entre la que hayamos es- 
crito hasta el final del programa. En último lugar, podemos em- 
plear un punto (.) después de LIST, con lo que obtendremos la 
última línea que hayamos entrado o que hayamos visualizado. 
El comando LIST puede también utilizarse como sentencia de 


derlo volviéndolo a pulsar. Asimismo podemos interrumpirlo 
pulsando CTRL-STOP o CTRL-C. Todo lo dicho anterior- 
mente es válido también para obtener listados por impresora, 
pero debemos tener en cuenta que la orden para listar por éste 
periférico es LLIST. 

AUTO: Este comando tiene una gran utilidad. Si escribi- 
mos AUTO en modo directo y pulsamos RETURN, se inicia la 
autonumeración de líneas, comenzando en la n.° 10 y con incre- 
mentos de 10. También puede iniciarse la autonumeración co- 
menzando a partir de una línea determinada y con incrementos 
de 10 introduciendo AUTO seguido del n.° de línea a partir del 
que deseemos comenzar. Podemos también modificar el incre- 
mento de líneas tecleando AUTO, seguido del incremento de 
líneas que deseemos; y obviamente también podemos empezar 
la autonumeración en una línea cualquiera y con el incremento 
que deseemos tecleando AUTO seguido del n,° de línea, una 
coma (,) y el incremento. Si en lugar de escribir un n.° de línea 
colocamos un punto (.), se iniciará la autonumeración a partir 
de la última línea escrita. Caso de que utilizando AUTO nos en- 
contráramos con una línea que ya estuviera utilizada, seremos 
avisados de ello por un asterisco (*) que aparecerá al lado del 
n.° de línea. Si deseamos conservar la línea tal como está simple- 
mente debemos pulsar RETURN, caso contrario borraremos el 
asterisco y escribiremos la nueva línea. Este comando sirve para 
ahorrar tiempo, puesto que nos permite ignorar los n.° de línea 
y para acelerar tareas repetitivas, sobre todo si combinamos su 
uso con el de alguna tecla de función. Para salir del modo de au- 
tonumeración debemos pulsar CTRL-STOP o CTRL-C. 

RENUM: Este es un comando que nos ayuda a ordenar las 
líneas de un programa. Cuando hemos tecleado un programa 
en el que los incrementos de línea no son fijos, o cuando hemos 
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intercalado líneas una vez listado, etc. RENUM nos ayuda (si lo 
tecleamos en modo directo seguido de RETURN) renumeran- 
do todas las líneas a partir de la 10 y con incrementos de 10, ac- 
tualizándose automáticamente los n.° de línea que figuren en 
programa en sentencias como GOTO, GOSUB, etc. Por si esto 
fuera poco, también se puede renumerar el programa definien- 
do el n.° de línea en que queremos que comience escribiendo 
RENUM y el n.° de línea deseado; e incluso si después de RE- 
NUM y un n.° de línea colocamos una coma (,) y un n.° de línea 
ya existente renumeraremos la porción del programa compren- 
dida entre el segundo n.° de línea y el final con el n.° de línea 
que hayamos especificado en primer lugar después de RENUM 
y en incrementos de 10. 

También podemos variar los incrementos, haciendo seguir 
a los dos valores especificados anteriormente otra coma y el 
nuevo valor del incremento. Si omitimos cualquiera de estos va- 
lores, debemos especificarlo mediante una coma. Unos ejem- 
plos nos aclararán esto: 

RENUM 100, 30 convertirá la actual línea 30 en línea 
100, y a partir de ella todas las líneas de 10 en 10. 
RENUM 100, 30, 3 hará lo mismo que el ejemplo ante- 
rior, pero los incrementos de línea irán de 5 en 5. 
RENUM 7, renumerará todo el programa desde el co- 
mienzo con incrementos de línea de 7 en 7. 

Si en una sentencia de programa hubiéramos utilizado un 
n.° de línea inexistente por error, al utilizar RENUM seríamos 
avisados de ello con el mensaje «Undefined line number... 
in...». Al margen de su gran utilidad como control del texto del 
programa, es muy útil también para la fusión de programas con 
MERGE, puesto que con RENUM podemos tener la certeza de 
que no se repitan números de línea. Hemos de tener en cuenta 
que el uso de RENUM es irreversible, por lo tanto debemos te- 
ner cuidado en señalizar convenientemente las partes del pro- 
grama de interés para nosotros (subrutinas, entradas o salidas 
de datos...) puesto que en caso contrario podemos perder un 
tiempo considerable tratando de reubicarlas. 

DELETE: Es sabido de todos los usuarios que para elimi- 
nar una línea de programa, basta con introducir su número y 
pulsar RETURN. El problema viene cuando se desea borrar un 
grupo de líneas, puesto que si hay muchas líneas ese procedi- 
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miento representa una considerable pérdida de tiempo. El Edi- 
tor MSX cuenta con el comando DELETE para solucionar ese 
problema. Este comando puede borrar todo o parte del progra- 
ma, por lo que debemos utilizarlo con especial atención. Si in- 
troducimos DELETE seguido de un n.° de línea, un guión y 
otro n.° de línea serán automáticamente borradas dé la memo- 
ria todas las líneas comprendidas entre las especificadas, estas 
inclusive. También podemos omitir el segundo n.° de línea 
pero no el guión si deseamos borrar las líneas entre la primera y 
el final del programa. Asimismo, podemos colocar el guión y el 
2.° n.° de línea con lo que borraremos las líneas desde el princi- 
pio hasta la especificada. Si tras DELETE colocamos un punto, 
se borrará la última línea que hayamos visualizado. Sí en el pro- 
grama no existiera ninguno de los números de línea especifica- 
dos en DELETE obtendríamos el mensaje «Illegal function 
cali». De todos modos, si deseamos borrar la totalidad del pro- 
grama, lo más práctico es teclear NEW con lo que además del 
borrado de la memoria, se reinícializan las variables, ficheros, 
etc. 

Además de los comandos mencionados, el BASIC MSX 
dispone de una serie de útilísimas teclas de control y especiales 
que poseen la finalidad de hacer más sencillo el editaje de pro- 
gramas. Quedan detalladas en la figura adjunta. 

Dos sentencias que van íntimamente unidas (una desactiva 
a la otra) también muy útiles para el editaje de programas son 
TRON y TROFF, que pueden ser usadas como comandos en 
modo directo. 'TRON resulta muy práctico cuando se desea sa- 
ber que hace un programa durante su ejecución, es decir, cuan- 
do bifurca hacia una u otra línea o que está ejecutando en cada 
momento. Tras la introducción de TRON y durante la ejecu- 
ción del programa se visualizarán en pantalla (siempre que este- 
mos en un modo de texto) los números de las líneas del progra- 
ma a medida que se vayan ejecutando. TROFF detiene este se- 
guimiento. 
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Variantes del editor 


VARIANTES DE LIST 

LIST Lista ei programa completo 

LIST line Lista la línea específica 

LIST (Une l)- 

(Iine2) Lista el programa cíesele la 

línea 1 a la 2 

LIST line- Lista desde la línea 

específica hasta el final 
LIST -line Lista desde el principio 

hasta la línea específica 


VARIANTES DE AUTO 

AUT O Numera las líneas desde 

el 10 en grupos de 10 

AUTO line Numera las líneas desde 
el número de la línea, 
especificada en grupos de 10 

AUTO line, 

increment Numera las líneas desde 

el número de la línea 
especificada en grupos 
de incremento 

AUTO, 

increment Continúa desde el número 

de la línea que se ha dejado 
con el incremento 
especificado 

AUTO line Numera las líneas desde 
el número de la línea 
especificada con el mismo 
incremento que el 
incremento previo 

VARIANTES DE RENUM 

RENUM Renumera desde el número 

de línea 10 en grupos de 10 

RENUM 

{ line 1 ) Renumera desde el nuevo 

número de la línea 1 en 
incrementos de 10 


RENUM 
(Une 1L 
(line 1), 

(line 2) Renumera desde el anterior 
número de la línea 2 
empezando una nueva línea 

1 en incrementos de 10 

RENUM 
(line lL 
(line 2), 

( increment) Renumera desde la anterior 
línea 2 empezando con una 
nueva línea 1 en el 
incremento especificado 

RENUM, 

line2), 

increment) Renumera desde la vieja 

línea 2, desde la nueva línea 
10 con incrementos de 10 

RENUM 

(line 2) Renumera desde la vieja 

línea 2 a partir de la nueva 
línea 10, con incrementos 
de 10 

RENUM 

( increment ) Renumera desde la nueva 
línea 10 con un incremento 
especificado 

RENUM 
line 2), 

increment ) Renumera empezandocon 
la nueva línea 1 desde la 
vieja línea 10 con el 
incremento dado 

VARIANTES DE DELETE 

DELETE 

(Une) Borra la línea especificada 

DELETE- 
line lV 

line 2 ) Borra desde la línea 1 a la 

2 inclusive 

DELETE 

(Une 2) Borra desde la Unea 2 

inclusive 
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CAPITULO III 


Constantes numéricas 

Llamamos constantes numéricas a los números utilizados 
por el BASIC MSX para efectuar sus cálculos. 

En el BASIC MSX, estas constantes pueden ser de seis 
clases: 

— Enteras: el BASIC MSX trabaja con todos los enteros 
(positivos o negativos) comprendidos entre -32.768 y 
32.767. 

— Decimales: La coma decimal viene representada en MSX 
por un punto. 

— Notación científica: Cualquier número demasiado grande 
siendo entero o demasiado pequeño siendo decimal, 
puede ser representado en dos partes: un número entero 
o decimal (mantisa) seguido de la letra E y de un entero 
con signo positivo o negativo (exponente). En BASIC 
MSX, la notación científica pérmite cálculos entre núme- 
ros comprendidos entre 10'^ 3 y 10 63 . 

Además de esto, los números decimales o en notación 
científica pueden estar expresados en simple o doble pre- 
cisión. 

La precisión simple, corresponde a un almacenamiento 
de números basta un máximo de 6 decimales; la doble 
precisión almacena hasta catorce. MSX trabaja -si no se 
especifica lo contrario- en doble precisión. Se puede se- 
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de caracteres) otra variable o constante del mismo tipo, 
sin sobrepasar los 255 caracteres. 

Ejemplo de variable de cadena: A$ =“PEPE” 

— Variables numéricas enteras: Su nombre debe ir seguido 
del signo «%» por ejemplo: A%. 

— Variables numéricas en precisión simple o doble: Como en 
el caso de las constantes, su nombre debe ir seguido de ! 
en el caso de la precisión simple (A!) o de # en caso de 
doble precisión (A#); aunque por omisión, la máquina 
siempre trabaja en doble precisión. 

De todos modos, no es preceptivo -en el caso de las va- 
riables numéricas- la colocación de signos para indicar la 
precisión; puesto que MSX dispone de instrucciones 
concretas (DEFINE, DEFSGN, DEFSTR, DEFDBL) 
que efectúan sistemáticamente la conversión. Los nom- 
bres de las tablas de variables siguen las mismas reglas 
que las variables. En MSX, 255 es el número máximo de 
dimensiones posibles para una tabla, y la declaración 
DIM sirve para fijarlas [DIMA (3, 6, 9)]. El número de 
elementos constitutivos de las tablas sólo viene determi- 
nado por la capacidad de memoria disponible. 

Es posible convertir un número asignándolo a una varia- 
ble de la precisión deseada, por ejemplo: A% = 10/3 
asignará a A% el valor 3, A! = 10/3 nos dará 3.33333 y 
con A# (o A sola) = 10/3 obtendremos 

3.3333333333333. 

Las variables enteras ocupan 2 bytes de memoria, las de 
precisión simple ocupan 4, y las de precisión doble 8. Por 
lo tanto, es muy importante a la hora de ahorrar memoria 
o de aumentar la velocidad de ejecución de un programa, 
definir el tipo de variable a utilizar. Las variables de cade- 
na, ocupan en memoria un espacio igual a la longitud de la 
cadena más 3 bytes. 

En las tablas numéricas, cada elemento ocupa el espacio 
correspondiente al tipo de variable al que pertenezca la ta- 
bla, incluso en el caso de que esté vacía. Si son tablas de ca- 
denas el espacio de memoria varía según la longitud de las 
cadenas que forman la tabla. Si una cadena es nula sólo 
ocupa 3 bytes. 

Es posible, como hemos mencionado, definir una variable 
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leccionar uno u otro modo de la siguiente forma: si traba- 
jamos con números decimales, para hacerlo en precisión 
simple añadiremos el signo ! después del número (por 
ejemplo 3.14!); si lo hacemos en precisión doble, añadi- 
remos el símbolo # (por ejemplo 3.1415296#). 

Si trabajamos con notación científica, E corresponde a 
precisión simple; D a precisión doble. 

— Hexadecimal: En informática se usa con frecuencia el sis- 
tema de cómputo hexadecimal, dado que resulta más útil 
que el decimal para trabajar con bytes. En este sistema se 
dispone de quince signos: guarismos del 0 al 9 y letras de 
A a la F; siendo F = 15. 

El BASIC MSX, reconoce cualquier número como hexa- 
decimal siempre que vaya precedido de «&H»; y auto- 
máticamente lo transforma en decimal. 

— Octal : También es posible utilizar la base ocho para tra- 
tar los números en BASIC MSX. En este caso, dispone- 
mos de los guarismos 0 al 7 para expresar los números. 
Los signos «&0» sirven para identificar esta notación. 

— . Binaria : De todos es sabido que el sistema binario, es 
aquel en que realiza la máquina todas las operaciones. A 
menudo resulta más útil entrar el valor de cada bit por se- 
parado que su equivalente decimal. El prefijo «&B» sirve 
para que cualquier MSX identifique una sucesión de 0 y 1 
como número binario. 


Variables 

Para definir las variables en MSX no hay limitación en 
cuanto al nombre asignado, pero la máquina sólo reconocerá 
los dos primeros caracteres. Se pueden mezclar letras y cifras, 
teniendo en cuenta que el primer carácter debe ser obligatoria- 
mente una letra. Otra regla muy importante que debe observar- 
se, es la no inclusión de palabras reservadas —en su totalidad o 
en parte- para nombrar las variables. En MSX existen cuatro ti- 
pos de variables: 

— Variables de cadena: Su nombre debe finalizar obligato- 
riamente con el signo $ y su contenido debe ir entre comi- 
llas. Se puede asociar a una variable de cadena (o cadena 
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mediante la sentencia DEF seguida de INT, SNG, DBL, 
STR. Cuando la variable en cuestión es definida mediante 
una de estas sentencias no es preciso añadirle ningún sufijo 
para expresar su condición excepto en el caso de que se 
desee modificar una variable en concreto: 

10 DEFSTR A-Z 

20 C% = 3.14/ATN(1):B!—RND(1)*C% 

En la línea 10 hemos definido todas las variables del pro- 
grama como alfanuméricas, es decir, todas las letras de la 
«a» a la «z» son consideradas como nombres de cadenas 
de caracteres aunque no lleven el signo $. En la línea 20 
modificamos esta definición ya que convertimos a C en va- 
riable numérica entera (%) y a B en variable numérica en 
precisión simple (!). Los sufijos %, !, #, $ siempre tienen 
prioridad sobre cualquier definición DEF. 

Tratamiento de variables numéricas 

El BASIC MSX nos permite utilizar un gran número de 
operaciones, ya sean aritméticas, Booleanas o lógicas. Pasamos 
a detallarlas a continuación. 

OPERADORES ARITMETICOS 


Los operadores aritméticos realizan operaciones matemáti- 
cas con valores cuyo orden de prioridad de ejecución es el si- 
guiente: 


A POTENCIACION (X a Y) 
-NEGACION (-X) 

* MULTIPLICACION (X*Y) 
/DIVISION (X/Y) 

\ DIVISION ENTERA (X\Y) 


MOD (XMODY) 

+ SUMA (X + Y) 

-RESTA (X-Y) 


eleva X a la potencia Y 
calcula la negación de X 
multiplica X por Y 
divide X por Y 
convierte en enteros los facto- 
res de la división. Tras eso di- 
vide y el resultado también se 
convierte en entero, 
nos da el resto de una división 
entera, también un entero, 
suma de X más Y 
resta Y a X 
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OPERADORES DE RELACION 


Estos operadores se utilizan para efectuar comparaciones 
entre valores numéricos o cadenas de caracteres. Si el resultado 
de la operación es verdadero se le asigna un 1; sí es falso 0. To- 
man en cuenta -en el caso de los números- los decimales y el 
signo para efectuarla comparación. Si se trata de cadenas se co- 
mienza a efectuar la comparación comenzando en el primer ele- 
mento a la izquierda de la cadena y carácter por carácter. Se cla- 
sifican en el orden de los códigos ASCII, que en el caso de las le- 
tras supone que comience por las mayúsculas y siga en orden al- 
fabético. Estos operadores son; 

= IGUALDAD (X=Y) 

< > DESIGUALDAD (X< >Y) 

< MENOR QUE (X<Y) 

> MAYOR QUE (X>Y) 

< = MENOR O IGUAL (X<=Y) 

> = MAYOR O IGUAL (X>=Y) 


OPERADORES LOGICOS O BOOLEANOS 

Estos operadores efectúan sus operaciones según las reglas 
del álgebra de BOOLE. Pueden utilizarse para comparar valo- 
res numéricos o junto con operadores de relación. Trabajan de 
la siguiente manera: 


NOT 

EQV 

AND 

X 

NOTX 

X 

Y 

XEQVY 

X 

Y 

XAND Y 

1 

0 

1 

1 

1 

1 

1 

1 

0 

1 

1 

0 

0 

1 

0 

0 



0 

1 

0 

0 

1 

0 



0 

0 

1 

0 

0 

0 
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IMP 

OR 

XOR 

X 

Y 

X IMP Y 

X 

Y 

X OR Y 

X 

Y 

X XOR Y 

1 

1 

1 

1 

1 

1 

1 

1 

0 

1 

0 

0 

1 

0 

1 

1 

0 

1 

0 

1 

1 

0 

1 

1 

0 

i 

1 

0 

0 

1 

0 

0 

0 

0 

0 

0 


Código de caracteres ASCII 

El MSX tiene guardados en ROM una serie de caracteres 
que utiliza para comunicarse con el usuario por medio del tecla- 
do. Estos caracteres comprenden las letras , los números, los ca- 
racteres especiales como asteriscos, paréntesis, etc. etc. 

A cada uno de estos caracteres le corresponde un número 
de código. Este número de código es estandard respecto a los 
caracteres alfanuméricos y especiales y fue definido por una se- 
rie de fabricantes americanos, que dejaron un gran número de 
códigos libres, para que cada fabricante los utilizara a su estilo. 
Es por eso por lo que el MSX, puede disponer de una gran serie 
de caracteres gráficos, que pueden obtenerse directamente 
pues están definidos también en ROM y su forma de aparecer 
en la pantalla responde a las llamadas de teclado, como cual- 
quier letra o símbolo común. Estos caracteres aparecen me- 
diante la combinación de las letras ordinarias del teclado más la 
tecla GRAPH, o con MAYUSCULAS (SHIFT) más GRAPH 
más letra ordinaria, etc. etc. 

Los números de código, pueden ser utilizados directamente 
por el programador por medio de las funciones ASC y GHR$. 

A - ASC (C$) 

Esta función almacena en A el código ASCII del primer 
miembro de la cadena C$. Asi 1 0 PftXN TASC < “'Pepe*' ) 

A$ = CHR$(A) 
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De modo que crea una cadena A$ de un carácter, corres- 
pondiente al código ASCII incluido en el paréntesis. 

10 PRINTCHR*C80> 

10 FR I NTCHR* (1 ) ; CHR* < 63 ) 

Los números de código del ASCII se reparten de la siguien- 
te manera: los primeros 3 1 códigos (del &H00 al &H1F) están 
reservados para el sistema, que los utiliza para gestionar la pan- 
talla, el editor de toda-pantalla, etc. etc. Estos 3 1 códigos están 
detallados en la tabla n.° 3 junto con sus equivalencias en deci- 
mal y hexadecimal, y corresponden en la tabla 1 a los espacios 
en blanco que se encuentran entre H00 y H1F. La forma en que 
estos caracteres se pueden ejecutar, es mediante una instruc- 
ción PRINT, es decir, si le pedimos al ordenador que ejecute 
tanto en modo directo como diferido el mandato PRINT 
CHR$ (12), el efecto que observaremos será la ejecución de 
CLS (borrado de pantalla); de la misma forma, si ejecutamos un 
PRINT CHR$ (7) oiremos unBEEP (ver capítulos dedicado al 
sonido). 

A continuación de estos 3 1 códigos nos encontramos con la 
serie que va desde el 32 al 235, que incluyen una serie de carac- 
teres (mayúsculas, minúsculas, teclas como ¿ ? & ( / etc. etc. y 
hasta un alfabeto griego). 

Sin embargo lo más interesante para el programador que 
desea realizar juegos los códigos que más le interesan son los có- 
digos gráficos que se encuentran ubicados en dos bloques. El 
primero que consta de 32 caracteres va desde el código 192 al 
223 (HCO y HDF) lo que puede comprobarse en la tabla 1, la 
que nos da los códigos ASCII en Hexadecimal. De esta manera 
ahorramos espacio y el usuario puede fácilmente, con ayuda de 
su ordenador transformarlos en decimal. Por otra parte el siste- 
ma no tiene ningún inconveniente en aceptar un PRINT 
CHR$(&HC0). 

El esquema 2 nos muestra la segunda serie de 32 caracteres 
gráficos, cuyos códigos están por encima del 255 que es la máxi- 
ma expresión que podemos darle a la función CHR$, por lo 
tanto tendremos que utilizar un truco, que consiste en realizar 
un PRINT CHR$( 1), que equivale a oprimir la tecla GRAPH, o 
sea que si acto seguido mediante un punto y coma (;) hacemos 
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un PRINT CHR$(65), nos da un sol sonriente de color blanco, 
o sea PRINT CHR$(Í);CHR$(65), pero hay que tener cuidado, 
porque este truco sólo funciona con punto y coma. Una coma 
sola, o dos PRINT consecutivos no producirán el efecto desea- 
do. En la tabla 2 encontraremos los códigos de esta segunda se- 
rie de caracteres en hexadecimales que desde el &H40 hasta el 
&HóF y pueden utilizarse directamente de esta forma: PRINT 
CHR$(1); PRINT CHR$(&H41), lo que produce el mismo 
efecto que en el ejemplo anterior. 

La utilidad de poder controlar estos códigos ASCII en 
nuestros programas es grande, pues de esta forma podemos 
comparar cadenas de caracteres, y ordenarlos por su código 
que coincide con el orden alfabético. Aparte, nos permite todo 
tipo de cálculos aritméticos con el valor de los códigos, pero 
esto, es mejor ir aprendiéndolo con la práctica, a base de copiar 
y analizar programas y, lo más importante, practicando con tu 
ordenador. 

Para obtener el código hexadecimal de un carácter determi- 
nado, en primer lugar debemos localizar el carácter, y la nume- 
ración que encontraremos en la parte superior, en sentido hori- 
zontal, nos dan el primer dígito de dicho carácter. El segundo 
lo obtenemos a la derecha de la tabla 1 (a la izquierda en la tabla 
2) de esta manera la A mayúscula nos da el código &H41. La ta- 
bla 2 funciona de la misma forma con la peculiaridad de que en 
la fila superior, sólo tenemos dos números el 4 y el 5, lo que es 
lógico, pues sus valores van del &H40 al &H5F. Por ejemplo el 
corazón se obtiene en pantalla mediante PRINT CHR$(1); 
CHR$(&H43). . 
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TABLA 3 


Código 

decimal 

Código 

hexa. 

Concepto 

1 

1 

Vacío (interpreta el siguiente como gráfico) 

2 

2 

Pone el cursor al inicio ae la siguiente palabra 

3 

3 

Interrumpe el programa 

4 

4 

Vacío 

5 

5 

Borra la línea hacia la derecha 

6 

6 

Como el n° 2 

7 

7 

Equivale a BEEP 

8 

8 

Equivale a BS 

9 

9 

Equivale a TAB 

10 

A 

Baja el cursor una línea 

11 

B 

Equivale a HOME 

12 

C 

Equivale a CLS 

13 

D 

Equivale a RETURN 

14 

E 

Mueve el cursor al final de la línea 

15 

F 

Vacío 

16 

10 

Vacío 

17 

11 

Vacío 

18 

12 

Equivale a INS 

19 

13 

Vacío 

20 

14 

Vacío 

21 

15 

Borra la línea donde está el cursor 

22 

16 

Vacío 

23 

17 

Vacío 

24 

18 

Vacío 

25 

19 

Vacío 

26 

1A 

Vacío 

27 

IB 

Vacío 

28 

1C 

Equivale a cursor derecho 

29 

ID 

Equivale a cursor izquierda 

30 

1E 

Equivale a cursor arriba 

31 

1F 

Equivale a cursor abajo 
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CAPITULO IV 


Series, tablas y cadenas 

Muchos problemas de programación hacen necesario el 
procesamiento de diversas variables en forma idéntica: en estos 
casos es interesante crear una serie, es decir, una determinada 
cantidad de variables que tienen un mismo nombre y se distin- 
guen, unas de otras por su subíndice (un número asociado al 
nombre de la variable). Este subíndice se escribe entre parénte- 
sis y a continuación del nombre de la variable; de esta manera, 
A(0) A(l), A(2), A(3), etc. etc. 

Los subíndices dé las series van desde 0 hasta 255 y pueden 
ser perfectamente variables; A(Z); BT(J); A$(P), etc. 

En un mismo programa se pueden emplear nombres de ma- 
trices idénticos a nombres de variables simples, es decir, el sis- 
tema distinguirá entre A, A$, A(n) y A$(n). El sistema asigna 
automáticamente 11 espacios en su memoria (no confundir con 
áreas de memoria) para los subíndices de 0 a 10, lo cual quiere 
decir, que no necesitamos definir de ninguna manera especial 
las tablas de menos de 11 elementos como veremos en este 
ejemplo. 

10 FOR 1=0 TO 10 
20 READ ñ$CD 
30 NEXT 

40 PRINT A$C4H »A$C1} ;A$t0D 
50 DATA na, c i o , 30, 40» f un , 60, 70-, 90, 100, 1 1 
0 , 120 


fuñe ¡ona 
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Sin embargo, para series mayores de 1 1 elementos, es nece- 
sario utilizar previamente una instrucción DIM cuya sintaxis es 
DIM A(n), o DIM A$(n) donde A puede ser una variable nu- 
mérica de precisión sencilla, doble o entera y n es un subíndice 
déla 255 (un subíndice 0 nos daría una variable simple) a con- 
tinuación podemos, tras una coma, dimensionar otras series. 

DIM A(n), B$(n), Z(n) j 

La utilización de series combinadas con bucles, aborra mu- 
cho trabajo de escritura y posibilita gran número de algoritmos 
útiles en programación. 

En ocasiones será útil crear una tabla que no es sino una se- 
rie con dos o más subíndices, como A(n,m) lo cual nos dará una 
serie de elementos que localizaremos por medio de dos núme- 
ros, el (1,5) el (2,6), etc. etc. Estos dos números nos apuntanha- 
cia un solo contenido, dentro de la tabla de variables que res- 
ponde a un nombre concreto. 

Con el esquema representa una tabla de 3 por 3 elementos, 
o sea, una tabla del tipo 
DIM A (2 ,2) 

A(0,0) A(1,0) A (2,0) 

A(0,1) A(l,l) A(2,l) 1 

A (0,2) A(l,2) A(2,2) 

De la misma forma que en las series, las tablas con subíndi- 
ces menores de 10 no necesitan ser dímensionadas. 

Sin embargo, sería muy útil si deseamos ahorrar memoria 
dimensionar las tablas y series aun cuando sus subíndices sean 
menores de 10, pues de esta forma el sistema reserva, justo la 
memoria necesaria. Es decir, si creamos una tabla del tipo DIM 
(2,3) el sistema sólo reserva el espacio necesario y ninguno más, 
no como en el caso de omitir la sentencia DIM, pues entonces 
por omisión reservaría una serie de espacios ( 12 1) equivalente a 
un DIM (10,10). ' | 

Es posible crear series y tablas de cualquier tipo mientras 
que este tipo sea declarado. Por ejemplo: DIM S$(100) dará 
una serie de 101 elementos de cadena. 

Cuando se inicializa una orden, todos los valores son asumi- 
dos como cero para series y tablas numéricas y cadenas nulas 
para series de cadenas. ! 
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10 SCREEN 0:CLS:KEVOFF 
20 LOCATE 7.10 
30 COLOR 1.12 

40 PRINT U ESTE PROGRAMA DEMUES-" 

50 PRINT” TRA QUE NO ES NECESARIO DIMEN-" 

60 PRINT n SIONAR UNA TABLA DE HASTA 121 T1 

20 PRINT"ELEMENTOS. ,l 

80 FOR A=1 TO 3000: NEXT 

38 SCREEN 1 

100 FOR P=1 TO 6 

110 FOR 1=1 TO 2 

120 READ PCP, 13 

130 NEXT I.P 

140 PRINT :PRINT :PRINT :PRINT'‘LOS DATOS V 
SUS CUADRADOS ESTAN ORDENADOS POR PAR 
ES" 

150 LOCATE 0.10 :FOR P=1 TO 6 :PRINTTAB C3 D 
,PCP. ID íTABC 15DPCP , 21 
160 NEXT 

170 DATA 5.25.3.9.4-. 16.6.36.7.49.9.81 

Requerimientos de memoria para series y tablas 

Las variables que utilizamos en nuestros programas BASIC 
son almacenadas en una zona de memoria llamada DIM AREA, 
VARIABLE AREA o STRING AREA según sean tablas varia- 
bles numéricas o cadenas, ya vimos que según el tipo de varia- 
ble que utilizáramos (numérica entera, de precisión doble, o ca- 
dena) necesitaban más o menos bytes para ser almacenadas. En 
el caso de las tablas, si son de números enteros es necesario re- 
servar los bytes por elemento, 

las de precisión simple 4 bytes por elemento 
las de doble precisión 8 bytes por elemento 
y las cadenas 3 más la longitud del contenido por cada 
elemento. 

Mediante la función VARPTR puedes encontrar la situa- 
ción de cada una de las variables utilizadas, ya sean cadenas, se- 
ries tablas, variables numéricas. Ejemplo 
10 A% = 100 
20 PRINT VARPTR (A%) 
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Todo el contenido de las variables de cadena está almacena- 
do en la sección STRING AREA O AREA DE CADENA de la 
memoria del ordenador (ver mapa de memoria). El tamaño de 
este String área es de 200 bytes, por defecto, es por ello que la 
máxima cantidad de elementos de una cadena es de 200 carac- 
teres, si no incrementamos este área de cadenas mediante la ins- 
trucción CLEAR lo que será necesario, casi siempre que utilice- 
mos una tabla de cadenas o una serie de cadenas de una longi- 
tud. 

Utilización de la sentencia CLEAR 

Con CLEAR limpiamos el espacio de memoria para varia- 
bles y anulamos todas las variables de cadena y numéricas que 
hayamos creado y almacenado, previas a la ejecución de esta 
sentencia. Consta de dos parámetros, con el primero controla- 
mos el espacio disponible para cadenas (200 Bytes por omisión) 
y lo podemos incrementar. Por ejemplo CLEAR 255 aumenta- 
rá el área de cadenas a 255 bytes. 

Es necesario tener en cuenta que tras una orden CLEAR, 
también se cierran todos los ficheros o dispositivos de archivo 
que pudieran estar abiertos. 

Él segundo parámetro, tras una coma (,) reserva espacio 
para programas en código máquina, por lo que no será tratado 
aún. 

En ocasiones puede ser muy útil conocer el espacio que nos 
queda libre en memoria para introducir más líneas de progra- 
mas, y de forma particular, conocer el espacio libre de que dis- 
ponemos en el área de cadenas (string area). Todo esto pode- 
mos averiguarlo medíante la función FRE que posee dos sinta- 
xis distintas. Con FRE (0) nos da el número de bytes libres que 
quedan en memoria. 

PRINT FRE (0) recibirá una respuesta automática del siste- 
ma, ya sea en modo directo o diferido. Otra aplicación seria 
25 IF FRE(0) < X THEN 50 

con lo que en caso de que dispongamos de menos de X bytes de 
memoria libre nuestro programa transfiere el control a la línea 25. 

Con la siguiente sintaxis FRE (" ") el sistema nos entrega 
sólo el espacio libre para cadenas, lo que es vital, pues en el sis- 
tema MSX el espacio para cadenas es fijo a lo largo de la ejecu- 
ción de una tarea. Por lo tanto sólo podemos dimensionar al 
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principio de programa mediante CLEAR, pues cualquier sen- 
tencia CLEAR a mitad de programa nos destruirá las variables 
acumuladas, por ello es importante mediante FRE (" ") contro- 
lar el espacio libre para introducir nuevos datos, y si no es posi- 
ble seguir introduciendo, enviarlo al fin de ejecución. 

IF FRE (" ") < 20 THEN END, 

Introduciendo en el lugar conveniente esta línea en nuestro 
programa para tratamiento de. cadenas, cuando no tengamos 
más de 20 bytes libres en el STRING AREA (área libre para ca- 
denas), el programa terminará. 


Tratamiento de cadenas 

Ya hemos visto que denominamos cadenas literales a las va- 
riables, que pueden contener caracteres alfanuméricos, tanto 
números como letras. En el caso de que estas cadenas conten- 
gan números, estos no tendrán valor aritmético, sino simple- 
mente gramatical, es decir que si definimos una variable como 
cadena mediante una asignación A$ — "xxxxx" esta puede con- 
tener letras, números y caracteres especiales (gráficos o de con- 
trol) introducidos por medio de sus códigos. 

Aunque el contenido de una cadena sea únicamente numé- 
rico, la única operación que podemos ejecutar con ella es la 
concatenación con otra cadena; según podemos apreciar en el 
siguiente ejemplo: 


10 '‘123’* 

20 B$= *'456 w 
30 LPRINT A$+Bi£ 

Después de listar este corto programa no da como resultado 
123456. 

Recordemos al ver estos ejemplos, que una cadena de carac- 
teres se defíne siempre con un símbolo $ detrás de su nombre o 
con una declaración previa mediante la instrucción STR. Sí 
cambiamos en la línea 10 y 20 del anterior programa los valores 
de A$ y B$, y los sustituimos por los valores que deseemos 
(cualquier carácter hasta un límite de 255) podemos ver cómo 
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funciona esta operación de concatenación. Por ejemplo si A$ 
= "ABC" y B$ = "DEF" el resultado será TOTAL ^ "ABCDEF". 

Si a continuación creamos una cadena nula, o sea, una cade- 
na cuyo contenido sean uno o varios espacios, podemos conca- 
tenarla con otra u otras, de manera que deje espacios en blanco 
entre los contenidos de otra cadena. Por ejemplo: 

10 '* 

20 "a" 

30 prijmt A$+B$-f~A$-HB$ 

Esta posibilidad es muy socorrida a la hora de manipular ar- 
chivos en cassette. 

A continuación veremos aquellas instrucciones que se refie- 
ren al tratamiento de cadenas: 

LEFT$ 

SINTAXIS: A$=LEFT$(C$,N) 

La instrucción LEFT$ crea una subcadena constituida por 
los N primeros caracteres extraídos por la izquierda de una ca- 
dena^C$ . ^Si N=0, el resultado de la operación es una cadena 
nula " ", si pór el contrario N es superior al número de caracte- 
res contenidos en C$, A$ contendrá la totalidad de C$ 

Ejemplo: 

10 PEINT LEFT$ < "Javier", 3) 

Jav 


RIGHT$ 

SINTAXIS: A$=RIGHT$(C$,N) 

Esta función realiza la misma operación que LEFT$, pero 
a extraer caracteres por ía derecha (evidentemente 
RIGHT es derecha en inglés y LEFT izquierda). 

Ejemplo: 


10 PEINT RIGHT*<" Javier", 2) 
er 
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MI D$ 

SINTAXIS: A$=MID$(C$;N,M) 

Extrae para crear la nueva subcadena, N caracteres a partir 
del número N inclusive, empezando por la izquierda. Si se omi- 
te N, o si su valor es superior al total de caracteres desde el nú- 
mero N hasta el fin, la función envía todos estos, es decir, que 
por omisión de N, la nueva cadena contiene los caracteres des- 
de N hasta el fin. 

Naturalmente, si N es superior a la longitud de A$ el resul- 
tado será cadena nula. 

Ejemplo: 


10 

PRINT 

MI.D* 

( "Javier 

a 

10 

PRINT 

MID$ 

< “Javier 

av 

10 

PRINT 

MID$ 

( "Javier 

v i 

e r 




LEN$ 

SINTAXIS: A$=LEN$(C$) 

Nos dará en A el número de caracteres (incluidos los no im- 
primibles y de control, de que consta la cadena C$. 

Si C$ es una cadena nula A será 0. 

Ejemplo: 

10 PRINT LEN C “JAVIER" ) 

¿5 


STRING$ 

SINTAXIS: A$=STRING$(N,X) 

Con esta función creamos una nueva cadena A$ contenien- 
do N veces el valor del primer carácter de una cadena C$, o el 
carácter correspondiente al código ASCII del número X. 

10 PRINT STRING*<5, "PEPE") 

PPPPP 

10 PRINT STRING$ CG.&HPGD 

ÑÑÑÑÑ 
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SPACE$ 

SINTAXIS: A$— SPACE$(N) 

Crea una cadena con N espacios (caracteres en blanco). 

10 FüR N= 1 TO 3 

20 PRINT SPACES <N);“ TEXTO'* 

30 NEXT 


TEXTO 

TEXTO 

TEXTO 

10 PRINT SPACE$ < 15) ; “TEXTO" 

TEXTO 

INSTR 

SINTAXIS: A$=INSTR(N,A$,C$) 

Esta función busca en una cadena A$, la cadena o subcade- 
na C$, a partir del carácter número N, o del primer carácter sí 
se ha omitido N. El resultado que se acumula en A, es un valor 
numérico, indicando el número de carácter a partir del que en- 
contremos la subcadena C$, comenzando por el primer carác- 
ter de la izquierda, tanto si lleva el parámetro N como si no, 
pues la introducción de este parámetro es a efectos de acelerar 
el proceso si se conoce la posible ubicación de la subcadena, a 
buscar dentro de la cadena principal. 

Si la subcadena C$ no se encuentra, el valor obtenido es 0. 

Ejemplo demostrativo 

10 PRINTINSTR ( "ABCDEFGHI " , “FS" ) 

6 

10 LPRINTINSTR ( 7 , "ABCDEFGHI ", “FB " ) 


0 

10 PRINTINSTR < 1 , “ABCDEFGHI " , "AB" ) 
1 
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STR$ 

SINTAXIS: A$=STR$(N) 

Sabemos que cuando dos números son almacenados en va- 
riables del tipo A,B etc o A%,B% o bien A!,B! o por último 
A#B#estamos hablando de valores aritméticos y matemáticos, 
pero si esos dos números se almacenan en una variable de cade- 
na A$;B$ sólo contará para nosotros su valor gráfico o gramati- 
cal, y además de tener que tratarlos entre comillas “200”, “300” 
no podremos, con ellos ejecutar más que la operación de conca- 
tenación. Esta función transforma una variable numérica en 
una de cadena, por ejemplo: 

10 A=300 : B-200 
20 A$=STR$<A) 

30 B$=STR$(B> 

40 PRINT A+'B 
50 PRINT A$+B$ 

500 

300 200 

El resultado será 500 en el caso de varibles numéricas y 200, 
300 en el de cadenas. Obsérvese el espacio que precede a cada 
valor alfanumérico, que corresponde al signo positivo, si el nú- 
mero lo es. Si es un número negativo el primer espacio antes de 
los valores numéricos no se quedará en blanco, sino que será re- 
llenado por el carácter alfanumérico. 

Ejemplo 

10 A=~300 : B=~200 
20 A$=STR$<A> 

30 B$=STR$(B) 

40 LPRINT A+B 
50 LPRINT A$+8$ 

-500 

-300-200 


VAL 

SINTAXIS: A$=VAL(AS$) 

Esta función es la inversa de la anterior y nos da el equiva- 
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lente numérico de una cadena de caracteres. Sin embargo esta 
conversión es más compleja. 

Si el contenido de A$ es un número, el transporte a la varia- 
ble A es sencillo, se archiva el número, con el espacio reservado 
para el signo, pero si A$ contiene números y caracteres, la fun- 
ción sólo archivará en A el número que se encuentre en primera 
posición de la cadena. Si el contenido de A$ no puede ser eva- 
luado por empezar la cadena con un carácter alfabético, el valor 
archivado será 0. Para finalizar diremos que para la función 
VAL los espacios no tienen sentido, no los aprecia. Los prefijos 
de conexión entre bases &B, ótO, &H son perfectamente inter- 
pretados por VAL. 

Naturalmente, vistas de esta forma las instrucciones se pre- 
sentan claras, pero, poco útiles. Nada más lejos de la realidad. 
Bastará entremezclarlas y operar con ellas dentro de series de 
operaciones complejas que impliquen varias de estas operacio- 
nes unidas, para darnos cuenta de la dificultad que representa 
trabajar con este tipo de operaciones: por ejemplo analicemos 
la siguiente expresión: 


10 AS= " 300 ” 

20 A- VAL (AS) 

40 PRINT A/2 
RUN 
150 

10 AS= “ 3 CORDEROS ** 
20 A=VAL < AS ) 

40 PRINT A 
RUN 
3 


Sobre su utilidad hay que señalar, especialmente si usted 
está interesado en programar para la gestión, que analice los 
programas del libro en que aparecen operaciones con variables 
de cadena, y se convencerá no tan sólo de su utilidad sino tam- 
bién de su necesidad. 
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CAPITULO V 


Grabación de programas 

Lo primero que hay que hacer para efectuar una grabación 
es verificar que las conexiones estén realizadas correctamente. 
Con cada MSX se facilita un cable especial para conectar al 
magnetófono y este cable tiene en uno de sus extremos una cla- 
vija DIN, que debe insertarse en la entrada TAPE de la parte 
trasera del ordenador. En el otro extremo del cable hay tres cla- 
vijas; una blanca, que debe insertarse en la toma AUDIO 
(EAR) del cassette, una roja, que debe conectarse en MIC, y 
una más pequeña negra que debe conectarse en REMOTE. En 
el caso de que el magnetófono no disponga de REMOTE, esta 
clavija cuya función es poner en marcha o detener el magnetó- 
fono manipulándolo desde el ordenador, puede dejarse sin co- 
nectar. 

Una vez realizados estos pasos previos, el cassette y el orde- 
nador ya están en situación de dialogar. De todos modos, es 
preciso tener en cuenta otra serie de detalles que pasamos a 
mencionar. 

- Utilice siempre un cassete monoaural. Con un estéreo 
sólo grabará parte de la información. 

— El volumen del cassette debe estar alto. 

— El tono debe estar situado en agudo. 

— El cabezal del cassette debe estar limpio y en perfectas 
condiciones. 
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— Azimut correcto. El azimut o grado de inclinación del ca- 
bezal de lectura, debe ser siempre paralelo a la cinta del 
cassette. La calidad de reproducción depende en gran 
medida de la correcta posición del azimut. Caso de no es- 
tar bien regulado podemos encontrarnos con que no lea 
exactamente la cara correspondiente de la cinta sino que 
lea parte de la otra cara. También ocasiona problemas de 
carga debido a que lee en sentido inverso parte de lo gra- 
bado en la cara opuesta. Para graduar el azimut de un 
cassette basta con regular con un destornillador el peque- 
ño tornillo que hay detrás del cabezal de lectura. L)e to- 
dos modos, si no te atreves a hurgar en tu cassette, otra 
solución más cara pero igualmente válida es grabar las 
cintas por una sola cara. 

Las grabaciones efectuadas en un magnetófono y reprodu- 
cidas en otro también pueden dar problemas. Entre uno y otro 
aparato suele haber pequeñas diferencias de velocidad que 
afectan considerablemente la grabación y reproducción de pro- 
gramas. Lo ideal es utilizar siempre el mismo cassette. 

Para la transmisión de datos del ordenador al cassette dis- 
ponemos de varias alternativas; CSAVE, SAVE y BSAVE las 
que veremos más detalladamente en el capítulo de gestión de 
archivos. Bástenos saber de momento CSAVE es la orden más 
usual para grabar programas en cassette. Se utiliza de la siguien- 
te manera: 

CSAVE «nomprog» 

El nombre del programa no debe sobrepasar los seis carac- 
teres y el primero de ellos debe ser preceptivamente una letra. 
Una vez puesto el magnetófono en grabación se pulsa RE- 
TURN y se espera a que el ordenador nos muestre OK en la 
pantalla, cosa que significará que ha efectuado la grabación. 

A pesar de que nos haya aparecido OK en pantalla, es con- 
veniente efectuar una comprobación de la grabación. Para ello 
-si tiene el REMOTE conectado- teclee MOTOR ON o tan 
sólo MOTOR y rebobine la cinta hasta la posición donde ha ini- 
ciado la grabación. 

Si conectamos la clavija REMOTE al magnetófono y pone- 
mos éste en marcha, con la orden MOTOR ON comenzará a 
funcionar el cassette y con MOTOR OFF se parará. Si tan sólo 
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tecleamos MOTOR y el cassette esta funcionando se parará y si 
está parado comenzará a funcionar. 

Otra posible utilidad de la orden MOTOR es -una vez des- 
conectada la clavija de audio(EAR)— conectar la puesta en mar- 

^ ^ parada de una grabación AUDIO mientras se va oyen- 
do. Esta posibilidad, tal vez un poco peregrina, la comentamos 
por su posible utilidad para mecanografiado de textos, o tam- 
bién para su uso en programas educativos que utilicen voz mez- 
clada con programa. 

Tras poner el cassette en PLAY escriba CLOAD?, pulse 
RETURN y el ordenador verificará que la grabación se haya 
efectuado correctamente mostrando un OK en la pantalla. 

Cargar un programa en el ordenador también es muy senci- 
llo. Una vez colocada la cinta deseada en el cassette se introduce 
CLOAD «nomprograma» y el ordenador va leyendo la cinta 
hasta llegar al programa deseado. Caso de no especificar el 
nombre del programa, el ordenador cargará por defecto el pri- 
mer programa que encuentre en la cinta. Si tenemos una duda 
con respecto a los programas que hay grabados en una cinta, 
podemos verificarla totalmente con CLOAD si ponemos un 
nombre de programa ficticio, ya que CLOAD nos irá informan- 
do de los nombres de los programas que va encontrando en su 
camino... Si se produjera alguna anomalía durante las operacio- 
nes de grabación o carga del programa, la máquina nos infor- 
maría de ello con el mensaje «Device 1/0 error». 


CAPITULO VI 


Gestión de archivo y grabación de datos 

El sistema MSX para su gestión intensa considera la exis- 
tencia de cuatro dispositivos de archivo periféricos con los cua- 
les intercambia información. 

' 1 PANTALLA EN MODO DE TEXTO (sólo de salida) 

2 PANTALLA EN MODO GRAFICO (sólo de salida) 

3 MAGNETOFONO A CASSETTE (entrada/salida) 

4 IMPRESORA (sólo salida) 

Los nombres que reciben estos dispositivos con respectiva- 
mente: CRT, GRP, CAS, LPT. Todas las salidas de informa- 
ción se realizan a través de estos dispositivos. 

Dispositivo cassette 

Recordemos que para almacenar un programa en cassette 
ejecutábamos en modo directo, CSAVE «PROGRA» (Donde 
PROGRA es el nombre del archivo que contiene el programa). 
Esta instrucción se complementaba con CLOAD (para carga 
de programas, recuerde que el cassette es de entrada/salida). 
Pues bien, estas instrucciones pueden ser sustituidas por SAVE 
«C AS :PROGRA» y LOAD«CAS:PROGRA», que sería la for- 
ma general para tratar la entrada o salida por los dispositivos ar- 
chivadores. 

Sin embargo, el formato en que graba los datos la orden 
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CS A VE es distinto del que utiliza mediante SAVE“CAS: (nom- 
bre de archivo).” En el primer caso se almacena la información 
en un sistema intermedio, sólo útil para leer o cargar progra- 
mas. En el segundo se graba en ASCII puro, lo que resulta muy 
útil para trabajar con textos y datos. 

Una de las peculiaridades de CSAVE y CLOAD es que no 
necesitan parámetros, como SAVE o LOAD, y por tanto son 
más sencillos de utilizar, pero el inconveniente es que no permi- 
ten efectuar MERGE de programas, pues para utilizar esta sen- 
tencia es necesario que los archivos de carga se hallen grabados 
en ASCII. 

Con la instrucción MERGE “CAS”: (nombre programa)” 
unimos dos archivos, el llamado desde la instrucción que se Car- 
ga de cassette y el residente en memoria viva (RAM), es decir, 
que sólo se podrán fusionar programas grabados mediante 
SAVE. 

El programa residente seguirá tal cual y el miembro de car- 
ga se fusionará con él, sin embargo si se repiten números de lí- 
neas éstos serán modificados en el ordenador, prevaleciendo 
las líneas del programa que se ha leído mediante MERGE. Si se 
omite el nombre de archivo el ordenador intentará fusionar el 
primer archivo que encuentre. 

Otras instrucciones especiales que pueden ser utilizadas 
con el dispositivo cassette (CAS) son: 

BSAVE, que graba datos en formato binario. 

BLOAD, que los carga en binario (B de binario delante de 
SAVE o LOAD). 

Estas dos órdenes están diseñadas de cara a la grabación de 
programas en lenguaje máquina, por lo que disponen de algún 
parámetro del que no disponían CSAVE y CLOAD. La ins- 
trucción completa queda como sigue: 

BLOAD “nombre de dispositivo: (nombre de archivo)”, R, 
(dirección de memoria) 

Si deseamos omitir (incluso los dos puntos), nos cargará lo 
primero que encuentre. Los siguientes dos parámetros también 
son optativos. Con la R a continuación, el programa se ejecuta 
automáticamente tras la carga, lo cual es muy útil, pues, nos evi- 
ta trabajar con las áreas de memoria -condición necesaria para 
ejecutar un programa en lenguaje máquina mediante las orde- 
nes USR y DEFUSR. 


53 


Por fin el último parámetro también opcional, nos permite 
introducir un valor cíe partida que es añadido a las direcciones 
inicial, final y de ejecución, que se indicaron en la orden CSA- 
VE, para posicionar en otro sitio la rutina que se carga. Por 
ejemplo: BSAVE “ CAS: (nombre de archivo) ” , (dirección ini- 
cial), (dirección final), (dirección de ejecución). 

En este sistema de almacenamiento, después de introducir 
el nombre del archivo, se deberán introducir las direcciones de 
memoria, inicial y final (las áreas de memoria) entre las que se 
encuentra la rutina en código máquina, para que sólo guarde la 
información contenida en estas áreas. El último, parámetro op- 
tativo nos indica la sección del programa en máquina, en que 
empezará la ejecución si se carga con R en la sentencia BLGAD. 
Si se omite este parámetro, empezará la ejecución en la direc- 
ción inicial, lo cual resulta ser lo más común. 

Igualmente se puede omitir el nombre del arfchivo. Si así se 
hiciera la instrucción grabaría una cadena nula. 

LOAD sólo puede asignarse a cassette pero SAVE puede 
utilizarlos cuatro dispositivos. 

La sentencia SAVE aplicada a un dispositivo CRT produce 
el efecto de LIST. Si se ejecuta sobre LPT nos dará un LLIST. 

Antes de seguir adelante recomendaremos a los lectores 
que guarden en distintas cintas los programas grabados me- 
diante CSAVE/CLOAD, los grabados con S A VE/LOAD y los 
que utilizan BSAVE/BLOAD, pues puede ser que intentemos 
cargar con BSAVE un programa cargado con CSAVE o SAVE, 
pues dada la disparidad de códigos que emplea cada instruc- 
ción para guardar los programas en cassette si se leyera un ar- 
chivo de forma equívoca daría lugar a graves errores dentro de 
un proceso de aplicación. 


Grabación de datos en cinta 

Hasta ahora hemos visto cómo se guarda en cinta los pro- 
gramas que de hecho son archivos con un contenido muy espe- 
cial, pero para poder grabar y leer datos resultantes de un pro- 
grama, es decir, para organizar un archivo de datos o fichero, es 
necesario un poco más de preparación. 

En primer lugar, no trabajaremos como para grabar un pro- 


54 


arama en modo directo sino en modo diferido, esto es dentro 
de un programa previo a la grabación de datos, berta inútil te- 
ner encendido el cassette gastando cinta y también tener abier- 
to el comando de datos del ordenador al cassette en caso de no 

tener remóte. . 

Es evidente por otra parte que no siempre grabaremos to- 
dos los archivos. En ocasiones podemos hacerlo pero lo más 
frecuente es grabar los datos según los obtengamos a medida 
que avanza el proceso. Por tanto, ya podemos imaginarnos que 
la grabación cíe datos en un fichero es más trabajosa e implica 
un mayor número de instrucciones que la grabación de un pro- 
grama. Por ello es necesario a todos los niveles de programa- 
ción/que se hayan dispuesto instrucciones especiales que sim- 
plifiquen al máximo el trabajo. 

La primera instrucción que vamos a estudiar es OPEN, que 
prepara la apertura de un fichero y cuya sintaxis es: 

OPEN“ (nombre dispositivo): (nombre de archivo)”: 


FOR 


OUTPUT 

INPUT 


A$# (número de archivo) 


Sabemos que los dispositivos posibles son 4 y que a cual- 
quiera de ellos le podemos asignar la apertura de un archivo. 

De esta manera podemos abrir uno o más archivos de cas- 
sette, impresora, pantalla y pantalla de textos. Lo habitual es 
asignar la apertura de como máximo un archivo por cada dispo- 
sitivo. 

El nombre del archivo es optativo, pero recomendamos po- 
ner siempre un nombre, pues sino, es muy difícil operar poste- 
riormente con él. Si optamos por ponerle nombre, éste, como 
siempre, no debe tener más de 6 caracteres pues el sistema ig- 
nora a los demás. El número de canal debe ser un entero entre 
0 y 15, que es el mayor número posible de archivos con que 
puede trabajar el MSX. Si se abre más de un archivo es necesa- 
rio dar números diferentes a cada uno de ellos. Pero esto nos 
obliga a utilizar previamente una sentencia MAXFILES = (n) 
en la que como hemos dicho N puede ser un número de 0 a 15 
o cualquier variable numérica que contenga un valor entre 0 y 
15. Esta sentencia es necesaria en cuanto se abre más de un ar- 
chivo simultáneamente (en realidad no lo hace simultánemente 
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sino uno tras otro) . Sin embargo, hay dos puntos muy necesa- 
rios a tener en cuenta cuando se utiliza esta sentencia. 

En primer lugar, cada archivo preparado para abrirse en un 
programa ocupa un área de memoria de la parte de usuario, por 
lo que una apertura innecesaria o mal planificada de ficheros 
puede reducir considerablemente la memoria de que dispone- 
mos para introducir nuestros programas. 

En segundo lugar, esta instrucción siempre debe aparecer 
en primer lugar en un programa. Más aún, en las primeras lí- 
neas tras los REM de títulos y propiedad, pues tras su ejecución 
se remodela toda el área de usuario (por el motivo antes expues- 
to) y borra todo lo que hubiéramos almacenado en estas direc- 
ciones con anterioridad, especialmente las matrices que haya- 
mos creado con DIM, o los DEFINT, e incluso los valores que 
se hayan asignado a las variables, antes de la instrucción MAX- 
FILES. Por otra parte con MAXFILES =0 sóloprodremos eje- 
cutar CSAVE, CLOAD, SAVE y LOAD pues efcanal 0 está re- 
servado para ellas. 

Así pues, tras una sentencia MAXFILES = (n) deberemos 
ejecutar una sentencia OPEN; si la instrucción OPEN utiliza el 
dispositivo cassette, tras ejecutarse y sí disponemos de control 
de . «remóte», veremos como el motor del magnetófono se pone 
en marcha y en la cinta se graba el nombre del fichero si es un 
OPEN FOR OUTPUT. Si el OPEN es FOR INPUT -todavía 
con dispositivo cassette- cuando se ejecuta esta instrucción el 
cassette se pone en marcha y lee la cinta hasta encontrar el nom- 
bre de fichero que se le introdujo en el OPEN. Ejemplo de lo 
dicho hasta ahora: 

MAXFILES = 2 

OPEN “CAS” FOR INPUT 

OPEN “CAS” FOR OUTPUT 


Desde luego antes de empezar ninguna grabación o lectura 
es necesario controlar que la cinta esté en lugar correcto. De no 
hacerlo es muy fácil que al grabar borremos lo anteriormente 
grabado. Leer una buena colocación de la cinta nos evitará mu- 
chos ratos de tediosa espera pues los cassettes de audio suelen 
ser muy lentos. 


10 NAXFILES=2 

20 ÓPEN"CAS:OATA"FÜR INPUT AS #2 
30 INPUT #2» X% 

48 PRINT M X% ES" *X% 

50 CLOSE 

Ahora ya sabemos decirle al ordenador el número de cana- 
les que debe reservar para entradas/ salidas de ficheros (MAX- 
FILES) y también, asignar dispositivos y canales a ficheros, así 
como especificar si son de entrada o de salida (FOR INPUT; 
FOR OUTPUT). Todo esto lo hacemos mediante la instruc- 
ción OPEN pero para decirle que grabe o lea un dato concreta- 
mente [ahora! es necesario utilizar aún más instrucciones: 
INPUT #, (N canal), expresión para leer datos 
PRINT #, (N canal), expresión para grabar datos 
El número de canal naturalmente será el especificado en la 
sentencia OPEN correspondiente y la expresión será lo que 
grabaremos o leeremos al ejecutar la orden, es decir el dato. 

Para no tener que escribir tantas instrucciones INPUT # y 
PRINT # como datos haya que grabar, es necesario organizar 
algún tipo de bucle o contador. A continuación dos ejemplos 
de grabación de un archivo. 

10 SCREEN, , , 2 

20 CLS :PRINT "Es te programa, graba datos e 
n c inta.ponga una cinta en el magnetofón 

30 PRINT :PRINT"pu lse la tecla -S- para f 
inal izar el proceso" 

40 PRINT :PRINT"pu Ise RECmPLAY y a. contin 
uacion la barra de espacios" 

50 IF I NKEY& O" " THEN 50 
60 PRINT "ESPERE" 

20 OPEN "CASíDATO" FOR OUTPUT AS #1 
80 H%— 1 

90 PRINT "DATO" " " :INPUT HH£ 

95 PRINT #1,HH$ 

100 IF HH$ O " S" THEN 80 
110 CLOSE 

120 PRINT " PLSE STOP CEN EL CASSETTE! " 

130 SCREEN, , , 1 : ENO 
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10 DIN A$C1,2D 

20 OPEN "CAS^DATA” FOR OUTPUT AS #1 

30 POR A=0 TO 1 

40 FOR B=0 TO 2 

50- READ A$CA,B3 

60 PRINT #1 * A$t A, BD i " » n í 

70 NEXT B 

80 NEXT A 

30 CLOSE #1 

100 END 

110 DATA José » Antón í o , Jan; í e r 
120 DATA Pepe , Ton i , Jay í 


Como puede observarse hemos introducido una nueva sen- 
tencia CLOSE cuya sintaxis es: CLOSE (#) (número de canal) 
(número de canal) (número de canal). El número de canal es el 
número de archivo que se cierra, (por omisión con sólo CLOSE 
se cierran todos los archivos). Con esta sentencia tras cerrar un 
archivo, el canal por el que recibía o enviaba datos queda libre 
y podemos utilizarlo para otro archivo, e incluso asignarle otro 
dispositivo, lo cual resulta muy interesante, pues de esta forma 
no necesitamos reservar espacio para estos nuevos archivos me- 
diante MAXFILES por lo que ahorramos memoria de usuario. 

Ejemplo de cierre de un archivo y apertura posterior de 
otro con el mismo numero. 

10 OPEN n CAS “PARES” FOR OUTPÜT AS #1 
20 CLSíFOR N%— 0 TO 50 STEP 2 
30 PRINT#1 , N% 

40 PRINT N% l " ” ; 

50 NEXT 
60 CLOSE #1 

70 OPEN " CAS : IMPARES” FOR OUTPÜT AS # 1 
80 CLS s FOR H%— 0 TO 50 STEP 3 
30 PRINTttl.H* 

100 PRINT H% ; ” " ; 

110 NEXT 


Si cambiamos el programa anterior para introducir un ma- 
yor número de datos y lo ejecutamos, podremos observar que 
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aunque aparentemente graba los datos uno a uno, el motor del 
cassette se acciona sólo a intervalos regulares, y luego se desco- 
necta. Esto es debido a que en la memoria que se reserva el sis- 
tema para cada canal, con la sentencia MAXFILES, se guardan 
los datos, basta que la memoria reservada al canal de salida se 
llena, en cuyo caso graba los datos seguidos y espera que vuelva 
a llenarse de nuevo, si eso no ocurre, transmitirá todos los datos 
restantes que tenga en la memoria reservada cuando el archivo 
se cierre mediante la sentencia CLOSE. 

Otra peculiaridad interna del sistema, que nosotros no po- 
demos observar, es que cada vez que sacamos datos a un archi- 
vo con la sentencia PRINT # el sistema escribe automática- 
mente después de cada dato, un código de retorno y un código 
de avance de línea (&H0D) decimal 13 (&H0A) decimal 10, es- 
tos dos códigos, nos indican la separación entre datos (véase ta- 
bla 3 código ASCII). 

Cuando los datos son alfanuméricos (cadenas) tenemos la 
opción de sacar varios datos con una sola sentencia PRINT#, 
insertando entre cada uno de los datos, PRINT# 1,A$;V;B$, 
la coma indica la separación entre los datos A$ y B$ que se ma- 
nejan como dos datos diferentes cuando se introducen desde el 
archivo. Esto es especialmente útil para grabar datos asociados 
de dos tipos diferentes como por ejemplo Nombre N$ y Teléfo- 
nos T$: 

PRINT# 1 N$; T$ 

Aquí grabará primero el nombre y luego el teléfono asocia- 
do. 

Cuando los datos son de tipo numérico y se utiliza a INPU- 
T# para leerlos, cada uno de los datos se separa automática- 
mente con sólo encontrar un "f entre ellos. 

Un caso muy frecuente cuando trabajamos con ficheros es 
encontramos con que no conocemos cuántos registros (series 
de datos) tenemos archivados. En consecuencia no podemos 
utilizar un bucle FOR/NEXT por lo que debemos emplear la 
función EOF con la que identificamos el final del archivo. 

EOF (End of file) o sea en inglés «fin de archivo» es una 
función del BASIC que, cuando es interrogada de la siguiente 
forma PRINT EOF (número de archivo) nos ofrece un valor 0 
si no se han acabado los datos o de -1 si no hay más datos a leer. 
Ello es debido a que el sistema graba una marca (&H1A) al final 
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de cada archivo. Si utilizamos esta función es necesario estar se- 
guros de que el dispositivo por el que preguntamos ha sido 
abierto de entrada mediante una sentencia OPEN INPUT o de 
lo contrario los resultados pueden ser catastróficos. Quizá la 
mejor manera de utilizar la función EOF sea mediante una pre- 
gunta del siguiente tipo: 

IF EOF (núm. archivo) •= 0 THEN 100 ELSE GOTO 200 
En la línea 100 insertaremos la rutina para tratamiento de 
registros y en la línea 200 tendremos la rutina de fin de lectura. 

10 CLS :PRINT TAB C 12? ''BUSCALO' 1 :PRINT 
20 PRI ÑT ;PR I NT 11 .Es t e programa, busca datos 
por la"- PR I NT " inicial en el fiche ro d at 
os. " 

30 PRINT: PRINT"Pu Ise PL.AY en su cassett 
e y a continuación la barra de espacios" 

40 IF INKEY$<> “ "THEN 40 

50 I NPUT " Es c r i b a la inicial del nombre : 

" ;G$ 

60 0PEN"CAS :N0NBRE"F0R INPUT AS #1 
70 INPUT#!, N$ 

80 IF EOF C 1 1 =0 ANO GM?OLEFT*CN*„ 1 3 THEN 
70 

90 PRINT:PRINT"E1 nombre es " ;N$ 

100 CLQSE : PR I NT "Pulse STOP en el magneto 
fono. " 


Otra de las aplicaciones inmediatas de testión de dispositi- 
vos de archivo dél MSX es lá posibilidad de escribir textos en 
pantallas gráficas —SORBEN 2 y SCREEN 3—, dado que en ellas 
es posible emplear la orden PRINT #1, según se puede apre- 
ciar en el siguiente programita: 

10 SCREEN 2 

20 OPEN “GRP:” FOR OUT PUT AS#1 
30 PRESET (100,50) 

40 PRINT #1, “Nombre de archivo” 

50 GOTO 50 
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En la línea 10 determinamos la pantalla, mientras que en la 
20 abrimos el archivo en pantalla. La instrucción de la línea 30 
es de posicionado del texto en pantalla medíante PRESET y sus 
correspondientes coordenadas. Los caracteres a ver en pantalla 
de los datos de archivo se especifican en la línea 40. Si hubiése- 
mos dibujado entre esta línea y la 20 también aparecería junto 
con el texto en SCREEN 2. 

Como organizar sus programas de gestión desde cassette 

Toda aplicación de gestión, por modesta que sea, abarcará 
una serie de programas interrelacionados (programas para gra- 
bar datos, para modificarlos, leerlos y realizar con ellos funcio- 
nes, etc. etc.). Esta serie de programas recibe el nombre de apli- 
cación v su utilización, según unas normas predefinidas (l.° eje- 
cutar el programa de lectura, 2.° modificar los datos con el 2.° 
programa, etc. etc) se denomina proceso de datos. Analicemos 
esto más a fondo. 

Proceso de datos 

Datos son los elementos usados- como base de decisión, cál- 
culo o medida en un proceso. Los datos por sí mismos no dicen 
nada por lo que deben ser procesados y convertidos en infor- 
mación. Este proceso consiste en la selección, tratamiento y 
combinación de los datos, con objeto de obtener un mensaje 
significativo para alguien. 

A tal efecto el sistema MSX dispone de varias posibilidades 
profesionales que le permiten crear ficheros en discos (puede 
controlar de forma sencilla dos controladores de disco) de va- 
rios formatos, asimismo, puede almacenar datos en cartuchos 
ROM de memoria viva, intercambiar datos con otros aparatos 
por medio de su salida RS232 y grabar datos en un formato AS- 
CII puro, que puede hacer que intercambie datos con aparatos 
de la norma IBM PC (el hermano mayor de MSX por parte de 
Microsoft) y un sinfín de posibilidades más que sólo tienen por 
techo el megabyte de capacidad máxima que se obtiene me- 
diante un complejo sistema de paginación, todo lo cual es mate- 
ria para muchos más libros, y por lo tanto no será estudiado en 
éste. 
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En los anteriores capítulos henjos dado suficientes elemen- 
tos, para organizar pequeños programas de gestión familiar, 
con la sola ayuda de un modesto grabador de cassettes, conec- 
tado a su MSX. Ahora bien, esta modestia en los medios ut iliz a- 
dos, nos obliga de alguna manera a plantearnos algunas normas 
, de trabajo, que serán imprescindibles si queremos que nuestro 
proceso de datos familiar funcione a la perfección. 

1 - Atomice su análisis al máximo. Es decir, tras un ex- 

haustivo análisis del problema a resolver, redúzcalo a 
una serie de sencillos y cortos programas y no busque 
crear grandes y mastodónticos programas, que difícil- 
mente podrá controlar. 

2 - Tenga muy presente que las funciones básicas de todo 

proceso de datos (tratamiento de los datos tendente a 
lograr una información) son entrada, validación, orde- 
nación, operación, salida, y que estas fases de opera- 
ción han de ser reflejadas claramente en su o sus pro- 
gramas. 

3 - Recuerde siempre, que estos han de ser claros. No es- 

catime impresiones por pantalla de las instrucciones 
necesarias para una correcta ejecución. Lo cual, se con- 
vierte en imprescindible si nuestra grabadora de cas- 
sette no dispone de control REMOTE (será necesario 
entonces constantes mensajes del tipo, «apriete intro y 
a continuación Play en el cassette» etc. etc.) 

4 - No disponiendo cíe ficheros dinámicos, es necesario 

explotar al máximo las posibilidades del proceso PA- 
DRE-HIJO que consiste en leer un fichero de datos, o 
parte de él y manipularlo (anulando o modificando se- 
gún parámetros previos), para crear de salida otro nue- 
vo archivo-hijo, que sea reflejo del padre, que leimos 
previamente, pero ya modificado o actualizado. 

3 - Recuerde que los tratamientos de datos alfanuméricos, 
carecerán ae secretos para usted si domina las opera- 
ciones de cadenas. 

6 - Mediante estas operaciones de cadenas, conseguirá 
crear en sus ficheros registros (series de datos interrela- 
cionadas dentro de un fichero) de longitud fija o varia- 
ble. En el primer caso, una fimción LEFT$ o similar 
nos puede servir para seleccionar los campos de datos 
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que necesitemos modificar, en el sengundo caso, se 
hará imprescindible crear caracteres de fin de registro 
(algo similar a lo que hace el sistema con EOF) . 

7 - Para evitar problemas, utilice con profusión el trata- 

miento de errores y cree sus propios códigos de errores 
para aquellos casos más frecuentes que halle. 

8 - Dada la imposibilidad de rebobinar y correr la cinta de 

forma inteligente, la interrupción por intervalo puede 
ser útil, combinada con una orden motor, para posicio - 
nar el cassette en una vuelta concreta, a partir de la cual 
leer. 

9 - Para evitar utilizar las sugerencias esbozadas en el pun- 

to 7, o tener que cambiar de cinta varias veces, para 
grabar y leer datos, según el proceso Padre-Hijo co- 
mentado en el punto 3, será mejor crear varios archivos 
de pequeño tamaño y en cintas diferentes que masto- 
dónticos archivos, más sensibles a los errores y poste- 
riores complicaciones. HAGA COPIAS DE TODOS 
SUS ARCHIVOS. 

10 - Conscientes del ingenio necesario para organizar con 
sus reducidos elementos programas ambiciosos, acon- 
sejamos al lector que no dude en acometer la tarea, 
pues de esta manera deberá utilizar un auténtico con- 
cepto de análisis del problema y las posibilidades, lo 
que en definitiva es la quintaesencia de la programa- 
ción. 



CAPITULO vn 


Tratamiento de errores 

A poco que haya trabajado con su ordenador habrá obser- 
vado cómo aparecen en pantalla los mensajes correspondientes 
a los errores generados en el sistema. Estos errores son debidos 
a instrucciones mal empleadas, parámetros incorrectos o in- 
completos, cálculos imposibles (división por cero), operacio- 
nes ilegales, con cadenas, etc. etc. Estos errores provocan en el 
sistema una interrupción en la ejecución del programa, la apari- 
ción en pantalla del tipo y número de error y- acto seguido, pa- 
samos a modo directo. 

Los errores pueden producirse asimismo, en modo directo, 
obteniendo siempre el mismo tipo de mensaje, su formato es 

(MENSAJE DE ERROR) IN (N.° de línea) 


El número de línea corresponderá a la línea del programa 
que se ejecutaba en el momento de producirse el error. Pero no 
forzosamente, la línea en que se encuentra el error. Es decir que 
si en una línea 20 asignamos un valor 240 a una variable X, ello 
es perfectamente legal, pero si en una línea posterior, por ejem- 
plo la 50, especificamos la instrucción STRIG (X), al no aceptar 
esta instrucción el valor 240, nos dará error en la línea 50, que es 
correcta en si misma. 
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Los mensajes de error que utiliza el sistema MSX van nume- 
rados del 1 al 69. Los errores del 26 al 50, inclusives, son reser- 
vados para futuras expansiones del sistema, y del 5 1 hacia ade- 
lante están dirigidos a la gestión de archivos, de los cuales el bo- 
cado del león se lo llevan los dispositivos de acceso directo, por 
lo que tienen efecto si la unidad básica no utiliza sistema de ais- 
kettes. 

Por otra parte el sistema reserva los códigos de error del 70 
al 255 para utilización del usuario, de la forma que veremos en- 
seguida. 

El conocimiento de estos mensajes y sus códigos, nos será 
muy útil para prevenir bloqueos en nuestros programas. Blo- 
queos que pueden ser evitados mediante el potente juego de 
instrucciones MSX BASIC para el tratamiento de errores. 

El tratamiento de errores esta muy relacionado con el siste- 
ma de interrupciones de que dispone el sistema, que tratamos 
en otro capítulo. La primera sentencia por tanto, nos resulta fa- 
miliar: ON ERROR GOTO (numlinea). 

Esta instrucción produce en caso de detección de error un 
GOTO a la línea especificada, en la sentencia, con inhibición 
del mensaje en la pantalla. En este momento el sistema envía 
para su posterior tratamiento, el número de línea en que se pro- 
duce el error y el código del error a las variables reservadas por 
el sistema ERL y ERR respectivamente. 

De esta manera podemos seleccionar según el número de 
error almacenado en ERR algunos errores determinados, que 
pueden solventarse mediante una subrutina especial o, simple- 
mente, traducir los textos, y hacer que aparezcan en castellano. 
En este último caso, no será necesario continuar adelante, pero 
si hemos solventado el problema causante del error en una ruti- 
na de interrupción por error, podemos volver a la ejecución del 
programa mediante la sentencia: 


RESUME (numlinea) 


En esta sentencia, si omitimos el número de línea o lo hace- 
mos 0, el sistema devuelve el flujo del programa y va a la línea 
causante del error otra vez, e intenta ejecutarla. En cambio si in- 
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Tabla mensajes de error 


1 NEXT without FOR 

2 Syntax error 

3 RETURN without GOSUB 

4 Out of DATA 

5 (Ilegal function cali 

6 Overflow 


: No hay sentencia FOR 
correspondiente a su sentencia NEXT. 

: Error sintáctico en la sentencia. 

: No hay sentencia GOSÜB 
correspondiente a su sentencia 
RETURN. 

: No ha más datos para leer. 

: Especificación ilegal en una función 
o un mandato. 

: Demasiados o demasiado pocos 
datos. 


7 Out of memory 

8 Undefined line number 

9 Subscript out of range 

10 Redimensioned array 

11 División by zero 

12 lilegal direct 

13 Type mismatch 

14 Out of stríng space 

15 String too ¡ong 

16 String formula too complex 

17 Can’t CONTINUE 

18 Undefined user function 


: No hay más memoria. 

: Se ha especificado un número de 
línea no definido. 

: Subíndice de matriz fuera del margen 
definido. 

: La matriz de una sentencia DIM ya ha 
sido especificada. 

; Se ha dividido por cero. 

: El mandato no puede utilizarse en 
modo directo. 

: Error de deletreo de tos datos. 

; No queda más área para variables 
alfanuméricas. 

Cadena demasiado larga. 

Cadena demasiado complicada. 

No es posible continuar la ejecución 
del programa. 

Se ha utilizado una función no 
definida mediante una sentencia DEF 


19 Device 1/0 error 

20 Verify error 

21 No RESUME 

22 RESUME without error 


23 Unprintable error 

24 Missing operand 

25 Line buffer overflow 

51 Infernal error 

52 Bad file number 

54 File already open 

55 Input past end 

56 Bad file ñame 

57 Direct statement in file 


59 Finé noí OPEN 


FN. 

: Error en el equipo conectado. 

; Discordancia entre el programa del 
casete y el de la memoria. 

: No hay sentencia RESUME 
correspondiente a su sentencia ON 
ERROR. 

: No hay sentencia ON ERROR 
correspondiente a su sentencia 
RESUME. 

; Ha ocurrido un error carente de 
mensaje de error. 

: Falta un operando. 

: El programa introducido sobrepasa el 
tamaño de la memoria intermedia. 

; El contenido de la memoria o el texto 
es anormal. 

: Nombre de archivo incorrecto. 

: El archivo especificado ya está 
abierto. 

: Ya se han leído los últimos datos. 

: Especificación incorrecta de archivo. 

: Durante la carga de un archivo se ha 
introducido un mandato en modo 
directo. 

: Hay que abrir el archivo. 
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traducimos, tras RESUME un número de línea, la ejecución, 
continúa en esta línea. Con la opción 

RESUME NEXT 

la ejecución se desplaza a la línea siguiente a la que produjo el 
errar. 

10 ON ERROR GOTO 60 
20 INPUT A 
30 B=SQR (A) 

40 PRINT "sqr (a) =" ; B 
50 END 

60 IF ERR=5 AND ERL=30THEN70 

70 PRINT “introduce un numero positivo" 

80 RESUME 20 

Otra posibilidad es la de definir nuestros propios errores 
mediante la instrucción ERROR (num error). 

Si hemos preparado previamente el programa mediante 
una instrucción ON ERROR, cuando encuentre la sentencia 
ERROR 7 1 se creará una interrupción por error, acumulándose 
en ERR el número de errar que le hemos dado, (en este caso 
71), y en ERL el número de línea en que encontró la sentencia 
ERROR 7 1, a continuación, ejecutarála rutina de error a la que 
le envía la sentencia ON ERJROR GOTO. En ella, podemos 
preguntar por el código 71, pues ya ha sido definido previa- 
mente. 

Estamos pues ante un caso de error provocado por noso- 
tros, es decir basta decirle a la máquina ERROR 24, para provo- 
car un error del tipo MISSING OPERAND (obtendremos el 
mensaje y la interrupción). Lo mismo ocurre con todos los nú- 
meros de error del 1 al 69, que son reservados para el BASIC, es 
decir, forzamos el error correspondiente al número introduci- 
do en el parámetro de ERROR. Para ello no es necesario que 
haya una declaración previa de ON ERROR. Si diéramos al pa- 
rámetro un valor mayor de 69 el mensaje que aparece es «UN- 
PRINTABLE ERROR», pues este error no lo tiene definido el 
sistema, y es necesario tratarlo siempre mediante una sub rutina 
de error generada por ON ERROR. 


La forma más corriente de utilizar ERROR (numerror) es 
mediante una disyuntiva, del tipo IF (condición) THEN 
ERROR (numerror) ELSE (etc) o bien IF (condición) THEN 
(sentencia) ELSE ERROR (n.°). 

Es decir que si una determinada condición se cumple o no 
se considera error con lo cual generamos una interrupción y la 
enviamos a rutina general de tratamiento de errores, que puede 
servir para todos los que consideremos que pueden producirse 
en la ejecución de un programa. En esta rutina preguntamos 
por el valor de ERR y si es el (n.°) número introducido en la sen- 
tencia ERROR lo tratamos según nos interese. Si por el contra- 
rio, se produce una interrupción por error detectado por el sis- 
tema, en la misma rutina anterior, podemos darle a éste un tra- 
tamiento diferente. 

Existe, la posibilidad de que se produzca un error dentro de 
una rutina de interrupción por error, en cuyo caso el error es 
tratado normalmente por el sistema mediante el correspon- 
diente mensaje y el bloqueo en la ejecución. No hay, por tanto, 
riesgo de entrar en un bucle infinito, que se formaría, si este se- 
gundo error nos remitiera de nuevo esa misma rutina causante 
ael nuevo error. 

Con una sentencia del tipo ON ERROR GOTO suprimi- 
mos el efecto de ON ERROR (numlínea). Si aparece durante la 
ejecución de una rutina de error . En este caso el programa pasa 
a modo directo y aparece el correspondiente mensaje de error 
en la pantalla. La omisión del número de línea, por el contrario, 
sólo produce un error del tipo «Undefined line number». 

Los ejemplos que damos a continuación clarificarán más lo 
visto hasta aquí. 

10 PRINT "Teclear Cont ro.l-STOP para sal; 
r " 

20 ON ERROR GOTO 50 
30 LIST 
40 GOTO 70 

50 IF' ERR=19 THEN PRINT "Listado deteníd 
o" 

60 PRINT" En Línea" »ERL í ; ERROR ERR 
70 ON ERROR GOTO 0' no hay desoío, regre 
so a la normalidad 
80 PRINT "SE ACABO" 
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10 CLS 

20 OH ERROR GOTO 80 

30 PR I NT 2 1 NPUT 15 INTRODUCIR UN NOMBRE ” SN 
OM$ 

40 PRINT SPRINT NOM$ 

50 PR I NT ° I NPUT "SE CONTINUA CSI/NO.V* ;A$ 
60 IF AíCSI" AND ASO ."NO" THEN ERROR 2 
00 

70 IF A$= "SI" THEN GOTO 30 ELSE END 
80 REfl RUTINA DE DESUIO 

30 IF ERR=200 THEN PRINT SPRINT" INTRODUCI 

R SI O NO” ¿RESUME 50 

100 PRINT SPRINT "ERROR DESCONOCIDO" 


10 CLS 

20 ON ERROR GOTO 70 

30 I NPUT "INTRODUCIR UN NUMERO DISTINTO 
DE 0 " íN 
40 X=l/N 

50 PRINT SPRINT "1NUERSO DE " iN í " = M SX 
60 PRINT sGOTO 30 

70 REM RUTINA DE TRATAMIENTO DE ERRORES 
80 IF ERRO 11 THEN END 

90 PRINT “PRINT "HAY QUE INTRODUCIR UN N 
UMERO DISTINTO DE 0 " 

100 PRINT 

110 PRINT " Co d i 9 o de error: 1 ’ ;ERR 
120 PRINT 

130 PRINT "Linea, de error:" :ERL 
140 PRINT 
150 RESUME 30 
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CAPITULO VIH 


Los gráficos en MSX 

Una de las características en que más hincapié hacen los fa- 
bricantes de este estándar es su gran versatilidad gráfica. Todos 
los MSX van equipados con un procesador de vídeo (VDP) de 
Texas Instruments -TMS-9924A-, que dispone de una capaci- 
dad propia de 16 K y funciona básicamente en cuatro modos, 
que en BASIC corresponden a SCREEN 0, 1, 2 y 3. Los modos 
0 y 1 son de texto, mientras que el 2 y 3 son gráficos y por los 
cuales podemos acceder a todos los puntos de la pantalla me- 
diante instrucciones especiales. 

En Screen 2 hay 236 pixels (puntos) por 192 líneas a los que 
se puede acceder individualmente. SCREEN 3 es de 236 X 192 
puntos, pero están agrupados en bloques de 4x4 es decir, 
64X48 bloques de puntos. La selección de modo gráfico tan 
sólo es posible en modo diferido. Si se trabaja en modo directo, 
tras un breve destello de la pantalla, ésta se borra y vuelve al 
modo de texto. 

La instrucción COLOR en modo gráfico no modifica ins- 
tantáneamente el contenido de la pantalla, sino el color de es- 
critura para las instrucciones gráficas. Por lo tanto, parece posi- 
ble seleccionar en modo gráfico el color para cada uno de los 
puntos de la pantalla, pero en realidad esto sólo podemos ha- 
cerlo en baja resolución ya que en SCREEN 3 cada pixel es un 
número de color de 0 a 13. 
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Es posible mezclar texto y gráficos abriendo el archivo de 
pantalla mediante la sentencia OPEN «GRP»: AS# (numfi- 
chero) y posteriormente con PRINT# (numfichero), «texto» 
escribir el texto deseado. 

Además de las instrucciones gráficas (PSET, UNE, CIR- 
CLE...), los ordenadores MSX poseen una potentísima instruc- 
ción que utiliza el GML (Macro Lenguaje Gráfico). Nos referi- 
mos a la instrucción DRÁW que reúne características de todas 
las demás instrucciones gráficas y posibilita asimismo dibujar 
en coordenadas absolutas. Es decir, que dando valores numéri- 
cos fijos o relativos (cuando se trate de variables), permite ajus- 
tar la escala de una figura controlando sus dimensiones y some- 
terla a rotaciones diversas de izquierda a derecha y de arriba 
abajo. 

Con MSX también es posible la creación de SPRITES, es 
decir, definir caracteres propios dándoles forma y dimensiones 
para poderlos introducir dentro de los gráficos y crear anima- 
ción. 

Todos los comandos gráficos se refieren a una posición del 
«cursor gráfico» en la pantalla. La coordenada horizontal (abs- 
cisa) siempre debe estar comprendida entre 0 y 255, mientras 
que la coordenada vertical (ordenada) debe estarlo entre 0 y 
191. El punto 0,0 (punto de origen) esta situado en la esquina 
superior izquierda de la pantalla. 

Por lo tanto, la esquina superior derecha es el punto 255,0; 
la inferior izquierda el 0,191 y la inferior derecha el 255,191. 




Hemos comentado anteriormente que cuando se seleccione 
un modo gráfico debe hacerse un programa, puesto que en el 
caso de que se haga en modo directo simplemente se producirá 
un destello en pantalla y se regresará al modo de texto. Para evi- 
tar esto, le sugerimos cuatro opciones: 

L- 10 SCREEN 2 (o 3) 

-PROGRAMA- 
1000 GOTO 1000 


3.- 10 SCREEN 2 (o 3) 
-PROGRAMA- 
1000 IF INKEY$= 
““THEN 1000 


2.- 10 SCREEN 2 (o 3) 
-PROGRAMA- 
1000 z$ =INPUT$ (1) 

4.- 10 SCREEN 2 (o 3) 
-PROGRAMA- 
1000 IFINKEY $ < > “X” 
THEN 1000 


La primera de ellas es la llamada «bucle infinito». Para de- 
tener el programa y volver a modo de texto debemos pulsar 
conjuntamente CTRL y STOP. La segunda y la tercera son 
prácticamente la misma. En el momento en que pulsemos cual- 
quier tecla, se interrumpirá el programa y volveremos al modo 
ae texto, no exactamente en el acto sino cuando haya finaliza- 
do la ejecución. Esto se debe a que la máquina no realiza la ins- 
pección del teclado hasta que ha realizado el programa. La 
cuarta opción no detiene el programa a no ser que se pulse una 
tecla específica (en el caso del ejemplo la «x»). 

Cuando trabajemos en SCREEN 3 debemos tener en cuen- 
ta que las instrucciones gráficas que utilicemos efectúan una 
aproximación sobre las coordenadas dadas. Para saber cuales 
son las correspondencias entre los puntos de SCREEN 2 y 
SCREEN 3 a la hora de efectuar correcciones entre uno y otro 
modo, debemos tener en cuenta lo siguiente: 

Todos los puntos cuyas abscisas estén comprendidas entre 
0 + X y 3 + X en SCREEN 2 corresponden a la abscisa 0 + X 
en SCREEN 3. 

Todos los puntos cuyas ordenadas estén comprendidas en- 
tre 0+Y y 3+Y en SCREEN 2 corresponden a la ordenada 
0+Y en SCREEN 3. 

Por lo tanto, X debe ser un entero comprendido entre 0 y 
250 divisible por 4 e Y también debe ser un entero, comprendi- 
do entre 0 y 188; divisible por 4. 
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Instrucciones gráficas 
PSET/PRESET 

SINTAXIS: PSET (o PRESET) (STEP) (X,Y) (COLOR) 

Sirven respectivamente (si no se especifica COLOR) para 
situar o borrar un punto en las coordenadas X, Y de la pantalla. 

Si no se especifica el valor de STEP el punto se situará en las 
coordenadas absolutas; si se especifican las coordenadas me- 
diante variables, y se les asigna un valor STEP, X e Y servirán 
para definir un desplazamiento sobre las coordenadas. 

Las especificaciones de COLOR, PSET y PRESET cum- 
plen la misma función es decir, ambas dibujan un punto, si- 
tuándose el cursor en las coordenadas del punto, 

EJEMPLOS: 

10 SCREEN3: FOR A='l TO 100 10 SCREEN3 
20 PSET (A, A) 20 FOR A= 1 TO 100 STEP4 

30 PRESET (A, A) : NEXT 30 PSET STEP (A, A), 15 

40 Z$=INPUT$(1) 40 PRESET (A, A), 1: NEXT 

50Z$=INPUT$(1) 

POINT 

SINTAXIS: POINT (X, Y) 

La función POINT nos da el color del punto en las coorde- 
nadas X, Y. Si las coordenadas quedan fuera del área de visua- 
lización obtendremos —1. 

LINE 

SINTAXIS: LINE [(STEP) (X1,Y1)]~(STEP) (X2,Y2), 
(COLOR), (B o BF) 

LINE es una de las sentencias más utilizadas para dibujar. 
Tiene una gran versatilidad ya que puede trazar líneas, hacer fb 
guras llenas y perfiles. Si no se especifica un color, se toma el co- 
lor por defecto. La opción B dibuja un contorno cuadrado y BF 
un cuadrado lleno. Las coordenadas del punto pueden ser omi- 
tidas (no el guión) en cuyo caso se traza una línea entre la posi- 
ción del último punto definido y el segundo punto. Si utiliza- 



mos coordenadas relativas e incrementos mediante STEP po- 
demos (entre otras cosas) dibujar haciendo referencia a coorde- 
nadas absolutas. Esto permite presentar un dibujo en diferen- 
tes posiciones o bien, a distintas escalas. Es posible omitir una o 
varias opciones, pero se deben sustituir las opciones no utiliza- 
das por comas en el caso de que se desee utilizar una opción 
posterior. 


X ' LINE 

10'SCREEN 2s DEFINI' A-Z: COLORI , 15, 1 1 

20 FOR A~ 1 TO 253STEF19:F0RB=1 TO 191STEP 11 

30 FOR C~ A/2TOBSTEP7: FOR D=B*2 TO i STEP 38 

40 LINESTEP (A 9 C)—(D,B) ,13 

30 LINESTEP (I) , C) — <S , A) , 1 2 

60 LINESTEP <C, A) , 1 1 

70 LINE STEP (A,C) - <B,D) , 10 

80 NEXT 

90 NEXT 

100 NEXT 

110 NEXT 

120 Z*=INPUT.*<1) 

PAINT 

SINTAXIS: PAINT (STEP) (X,Y), (COLOR), (COLOR del 
borde) 

PAINT rellena una zona de la pantalla o una figura con el 
color elegido o por defecto en caso de no emplear la opción 
COLOR. El color del borde se utiliza en SCREEN3 si se desea 
bordear el dibujo, pero en SCREEN2 no se usa ya que automá- 
ticamente toma el mismo valor que COLOR y por lo tanto pue- 
de suprimirse. Las coordenadas (X,Y) deben estar dentro de la 
figura y/ o de la pantalla, no como en otros comandos gráficos. 
Tan sólo actúa en sentido horizontal y vertical, y si no se obser- 
va escrupulosamente que la figura a rellenar este absolutamente 
cerrada nos encontramos con la desagradable sorpresa de que 
PAINT huye por la abertura y nos borra la pantalla. STEP sirve 
para definir un desplazamiento por el eje de coordenadas rela- 
tivo a la posición actual del «cursor gráfico». De todos modos. 
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no es quizá la mejor opción para rellenar un área. Con mucho, 
la opción BF es más rápida aunque, bien es verdad que es más 
complicada de utilizar. 


1 ' RAI NT 

10 SCREEN 2: COLOR 1,14,1 2 
20 LIME (40,40) - (190, 100) 
30 .L1NE (60 , 1 70) — ( 1 90 , 100) 
40 L1IME (40,40) - (60, 170) 

30 PA I NT (100,1 0© ) , 1 
100 X$-INPüT$ ( 1 > 


CIRCLE 

SINTAXIS: CIRCLE (STEP) (X,Y), RADIO (COLOR) 
(ANGULO INICIO) (ANGULO FIN), ASPECTO 

CIRCLE representa el único medio de obtener en pantalla 
formas redondeadas sin utilizar funciones trigonométricas, que 
son por otro lado más lentas. 

Traza un círculo, arco o elipse cuyo centro se sitúa en las 
coordenadas absolutas X,Y o bien, caso de especificar STEP 
las coordenadas sirven para definir un desplazamiento sobre el 
eje relativo a la posición actual del «cursor gráfico». Los ángu- 
los inicial y final pueden omitirse. Caso de especificarse, permi- 
ten dibujar un segmento de la circunferencia o elipse. 

Los ángulos son tomados en radianes y representan valores 
entre 0 y 2*PIradianes. El aspecto sirve para definir la relación 
entre los radios horizontal y vertical de una elipse. La relación 
se divide por la altura para obtener la anchura, convirtiéndose 
en radio la menor de estas magnitudes. Si no se especifica, la 
máquina toma el valor por defecto. 

10 CLS SPRINT "DIBUJO DE UN ARCO ■ r 

20 PR I NT " PULSA UNA TECLA " 

30 Z*-1NPUT*C1> . 

40 SCREEN 2 s COLOR 1,14,12 
50 C I RCLE (100,100) ,40,8,1,6,1 
60 Z*=INPUT*<1 > 
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10 SCREÉN 2: COLOR 1,14,12 
15 FOR X— 30TÜ190 STEP12 
20 CIRCLE (X, 100) ,20,8, , ,1.2 
25 NEXT 

30 I NPUTí- ( 1 ) 


10 SCREEN 2:COLOR 11,1,1 

20 X= 128:Y=¿36:R=45:C=15:S=-*0íE=6.2;A=--.4 

30 PI^ATNCl 3X4 :R1=R 

40 FORT#=l TO360 STEP 10 

50 üJ=2*PIXT#/360 

60 X-130+Rl*CÜSCUn : Y=95+R 1 XS I N C Ul 
70 GOSUB 100 
80 NEXT T# 

30 GOTO 30 

100 CIRCLE CX, Y1 , R, C, S, E, fi sRETURN 

*v 


10 'gráficos sinusoidales 
20 SCREEN2: CLS 
30 B~RND < 1 ) : B=B* 15+1 
40 PI j =4*ATN< 1 ) 

50 A-RND < 1 ) : A~A*355 
60 W=RND < 1 ) : W=W*100+10 
70 Al“— B*PI ! 

80 A2=B*-P I ! 

90 C=< A2-AD/A 
100 G=255/ (A2-A1 ) 

110 FOR L=A1 TO A2 STEP C 
120 X=L*G: Y=W*SÍN (L> 

130 X 1— 130+X : Y 1=90+ Y 
140 LINE (XI, Yl)— (XI, XI) ,B 
150 NEXT L 
160 GOTO 30 
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DRAW 

SINTAXIS: DRAW (cadena alfanumérics 


5^ 

Nos encontramos no ante un comandó 
simo macrolenguaje gráfico (GML). El di 

pende de una serie de comandos residentes Ciroutí..» — 

caracteres. Al ser posible trabajar con variables dentro de la ca- 
dena, podemos variar las escalas, memorizar formas y obtener 
efectos de Zoom. Cada comando esta formado por una letra ha- 
bitualmente seguida por un parámetro. Podemos dividirlos co- 
mandos que usa DRAW en dos grupos: 

-De uso general 

A(n) determina el ángulo de giro para cada dirección especi- 
ficada. El valor (n) debe estar entre 0 y 3, correspondiendo 0 a 
la orientación habitual, l a un giro de 90° en sentido inverso a 
las manecillas del reloj, 2 a un giro de 180° y 3 a uno de 270°. 
Por defecto, se toma 0.: 

C(n) determina el color del trazo . 'Si no se especifica se toma 
el valor por defecto y afecta a todo aquello que se dibuje sin el 
prefijo «B». 

S(n) Factor de escala . El argumento (n) puede ir de 1 a 255. 
Este factor se obtiene dividiendo el argumento por 4; es decir, 
si n=2 la escala será 2/4 y significará la división por 2 de todas 
las longitudes. 

X(n) Este comando sirve, (al iguál que en PLAY, como vere- 
mos cuando traemos del MML) para ejecutar una «subcadena» 
dentro de una cadena. Debe finalizar preceptivamente con 
punto y coma (;). 

-De uso concreto 

Son estos los comandos de movimiento cuya misión es ge- 
nerar un desplazamiento del «cursor gráfico» con trazado de 
una línea a partir de su última posición especificada. Tras la eje- 
cución de cada orden las coordenadas del cursor se sitúan en el 
último punto dibujado, convirtiéndose esta posición en la nue- 
va posición del cursor. 

U(n). Genera un desplazamiento hacia arriba. 

D(n). Genera un desplazamiento hacia abajo. 

L(n). Genera un desplazamiento hacia la izquierda. 


u/ n ]' 5 enera un desplazamiento hada la derecha. 

E(n) Genera un desplazamiento en diagonal hacia arriba a la 
derecha (45). 

direcM3 15) Un desplazamient0 en diagonal hacia abajo a la 
^ifcrda (225) ^ despla2amiento en diagonal hacia abajo a la iz- 

H(n). Genera un desplazamiento en diagonal hacia arriba a la 
izquierda (135). 

También es posible desplazar el cursor a un punto concreto 
de la pantalla mediante el comando M(X,Y) que sirve tanto 
para coordenadas absolutas como relativas. Para usar estas últi- 
mas se debe preceder los argumentos de X e Y de los signos +o 
en cuyo caso, el cursor se desplaza un número de puntos de- 
terminados por los valores de X e Y y no a las coordenadas de 


Asimismo existen dos prefijos que deben preceder cual- 
quier comando de movimiento. Se trata de B(n); que desplaza 
el cursor sin dibujar y de N(n) que desplaza el cursor, dibuja v 
vuelve a la posición previa, J y 


18 REn PRIflER EJEHPLÜ DE DRAU 
20 SCREEN 2 
30 PSET C 100, 503 

40 G $=”c 15s30u6.r4d 1 1 3d4r2u 1 1 lu 1 r2d3l4 5 ' 
50 Gl£= n c 15s30u6r4d 1 13d4r2u 1 1 lu 1 r2d314“ 
60 DRALÍ G$ 

20 PSET C 120, 1003 
80 DRAU Gl$ 

90 2$=lNPUT£t 1 3 


10 RED SEGUNDO EJEDPLO DE DRAU 

20 reo cansío de orientación 

30 SCREEN 2 
40 PSET C 120, 1003 • 

50 FOR UJ=0 TO 3 

60 G$="A=UJ ;C1 5S30U6R4D 1 L3D4R2U 1 L 1 U1 R2D3L 

4 ” 

70 DRAUJ G$ 

80 NEXT 

90 Z$= I NPUT 13 
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10 REP1 TERCER EJEnPLO DE DRAW 

20 REP1 200H 

30 -SCREEN 2 

40 PSET C 1 20 » 1 00 3 

50 POR U!=10 TO 50 STEP 10 

60 G$ = "A0C15S=U) ;U6R4D 1 L3D4R2U 1 L 1 U 1 R2D3L4 

70 DRAW G$ 

80 NEXT 

30 2£=INPUT * CID 

DRAW cuarto 
10 'puntos cardinales 
20 SCREEN 2 
30 DRAW "bm!20, 100“ 

40 DRAW ,l nul0nel0nr 10nf 10ntíl0ng 10nl I0nhl0" 

50 ZS-INPUTí(l) 

DRAW cinco 

10 'puntos cardinales zoom 
20 DEFINT A-Z 
30 SCREEN 2 
40 DRAW "bml20, 100" 

50 FQR Z=1 TO 40 STEP 5 

60 DRAW "s^zjnulOnelOnrlOnflOndlOnglOnl 10nhl0‘ 
70 NEXT 

80 Z$=INPUT$(1) 


Sprites 

El BASIC MSX dispone de un grupo de cuatro instruccio- 
nes destinadas a la creación y control de caracteres gráficos pro- 
gramables (SPRITES). Cambiando un solo byte de un SPRITE 
podemos modificar su color o su diseño. Se pueden visualizar 
hasta 32 SPRITES, distinguibles entre ellos por su color, diseno 
y coordenadas y además por su tamaño (normal o ampliado al 
doble) y su longitud (8 bytes cuando sean matrices de 8*8, 32 
bytes cuando sean de 16* 16). Las coordenadas y la longitud de- 
ben ser previamente definidas en SCREEN (excepto en 
SCREEN 0, donde no funcionan los SPRITES). 



Hemos dicho que una de las ventajas de MSX es que permi- 
te usar hasta 32 SPRITES. Esto quiere decir que hay hasta 32 
planos posibles de visualiza ción, pero en cada uno de ellos sólo 
se puede incluir un SPRITE. El SPRITE 0 corresponde al pri- 
mer plano de visualización, es decir, es la figura que tiene prio- 
ridad sobre cualquier otra que aparezca detrás suyo. 

En S CREEN 1, 2 y 3 se pueden definir SPRITES mediante 
la variable de cadena especial SPRITE$ y desplazarlos por toda 
la pantalla con la orden PUT SPRITE, que borra el antiguo em- 
plazamiento de la figura dibujándola en el nuevo emplazamien- 
to asignado. El modo más fácil de dibujar un SPRITE es me- 
diante líneas DATA de números binarios (p.e., DATA& 
B00111 100). Si desarrollamos los SPRITES mediante este sis- 
tema de DATAS veremos en el listado la forma del SPRITE, y a 
los bits que estén en 1 (los encendidos) nos darán la forma y los 
que estén a 0 (los apagados) no se visualizarán. Un sistema muy 
útil para diseñar SPRITES consiste en dibujar en un papel una 
matriz de tantas filas y columnas como deseemos que tenga el 
SPRITE y rellenar los espacios que nos interesen para obtener 
la forma deseada. Así podremos codificarlo en binario de una 
manera muy simple: 


1 

2 

3 

q 

5 

6 

7 

8 


X 

X 

X 


X 



0 

1 

1 

1 

0 

1 

0 

0 


: &B01 110100 


De todos modos, esta manera de crear SPRITES mediante 
DATAS en binario no es la más adecuada. Si queremos ahorrar 
memoria lo más práctico resulta traducir el número binario a 
decimal mediante ?&B... ( ?&B011 10100 nos dará 116). Para 
seleccionar el tamaño de los SPRITES utilizaremos la orden 
SCREEN (1, 2 o 3), (0 si son de 8x8 sin ampliar; 1 si son am- 
pliados; 2 si son de 16 X 16 sin ampliar, 3 si son de 16 x 16 am- 
pliados). 
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10 screen 2,0 
20 S$=" " 

30 for c=0 to 8: read c$ 

40 S$=S+chr$(val("&B"+c$)) 

50 nextc 

60 SPRITE$(0)=c$ 

70 énd 

80 data 00111100 
90 data 01000010 
100 data 01100110 
110 data 00111100 
120 data 01100110 
130 data 00011000 
140 data 00100100 
150 data 11100111 

Un SPRITE de 16*16 no es otra cosa que 4 SPRITES de 
8*8 situados uno junto a otro formando un cuadrado y defini- 
dos de manera idéntica: 


S$ (1) 

S$ (3) 

S$ (2) 

S$ (4) 


Una vez definidos cada uno de los SPRITES dentro de ca- 
denas de caracteres, asignaremos su suma a SPRITE$ de la ma- 
nera siguiente: _ „ 

SPRITE$(1)=S$(1)+S$(2)+S$(3)+S$(4) _ 

La instrucción que nos permitirá mover los SPKHRÓ por 
toda la pantalla es PUT SPRITE, y su sintaxis es: 

PUT SPRITE numplano(, (STEP), (X,Y))(,COLOR) 

(,numSPRITE) j j 

Para situar un SPRITE en la pantalla en las coordínelas 
X,Y, previamente debe estar definido mediante SPRITE?. La 


81 



presentanción de SPRITES en pantalla es independiente de su 
contenido. La abscisa (X) puede tener valores comprendidos 
entre -32 y 255 mientras que la ordenada (Y) debe estar entre 
—32 y 191. El número de plano representa el plano de visualiza- 
don del SPRITE y debe estar comprendido entre 0 y 3 1 . STEP 
sirve para trabajar en coordenadas relativas. Si es omitido, la es- 
quina superior izquierda del SPRITE se sitúa en las coordena- 
das X, Y. 

COLOR sirve para definir el color del SPRITE. Caso de ser 
omitido, se toma por defecto el color seleccionado para el pri- 
mer plano, NUMSPRITE es el número asignado al SPRITE 
con SPRITE$ (n). Debemos tener en cuenta que no se puede vi- 
sualizar más de cuatro SPRITES simultáneamente. Caso de in- 
tentar visualizar un quinto SPRITE desaparecería el que tuvie- 
ra el último número de plano. 

Si el valor de la ordenada es igual a 208, todos los SPRITES 
con un número de plano más alto desaparecen de la pantalla 
hasta que les sea asignado un nuevo valor. Si en cambio el plano 
asignado es 209, el SPRITE al que le es asignado desaparece. 
Esta posibilidad resulta muy interesante ya que facilita la ani- 
mación. Otra regla importante a tener en cuenta si deseamos 
trabajar con animación es alternar diferentes formas rápida- 
mente para que los caracteres parezcan estar moviéndose. 

Las siguientes instrucciones tratan las bifurcaciones e inte- 
rrupciones de los SPRITES y son tratadas también en el capítu- 
lo destinado a las interrupciones. 

ON SPRITE GOSUB (numlinea) 

Sirve para bífurcar un programa hacia un subprograma. 
Debe ser valida por SPRITE ON. Posibilita la desviación del 
programa por la colisión de dos SPRITES en la pantalla. 

SPRITE ON-OFF-STOP 

SPRITE ON valida el desvío para la desviación ON SPRI- 
TE GOSUB. SPRITE OFF hace que se deje de tener en cuenta 
ON SPRITE GOSUB. SPRITE STOP memoriza la colisión de 
dos SPRITES pero no valida el desvío hasta que encuentra 
SPRITE ON. 


82 


CAPITULO IX 


El sonido delMSX 


Una importante característica de los ordenadores MSX es 
su capacidad de generar sonidos. Actualmente esto es algo que 
no sorprende a nadie, puesto que la mayoría de micros disponi- 
bles en el mercado tienen esa capacidad. Lo importante en este 
caso no es tan sólo lo que hace MSX sino también lo fácil que lo 
hace. 

Cualquier MSX va equipado con un «chip» de sonido. AY- 
3-8910 de General Instrument. Este Generador Programable 
de Sonido (PSG), permite mediante la instrucción PLAY el ac- 
ceso al Macrolenguaje Musical (MML), de funcionamiento si- 
milar al macrolenguaje gráfico y que permite efectuar composi- 
ciones hasta a tres voces en ocho octavas. Otra opción acústica 
que tenemos con MSX es el acceso directo al Generador de so- 
nido utilizando el comando SOUND. Vamos a hablar del Ma- 
crolenguaje musical. 

Todas las notas de la escala —hasta 8 octavas como hemos 
visto- han sido incorporadas al MML. Para hacer sonar cual- 
quier nota simplemente tiene que introducir la nota en cuestión 
con «notación inglesa». En notación inglesa, las notas en lugar 
de llamarse do, re, mi... se definen sólo mediante una letra, 
como veremos en el ejemplo: 


DO 

RE 

MI 

FA 

SOL 

LA 

SI 

C 

D 

E 

F 

G 

A 

B 


(notación inglesa) 
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De tal modo, cuando deseemos programar un DO pondre- 
mos una C, si es un MI una E etc. Los semitonos (sostenidos y 
bemoles), que son las teclas negras del piano se expresan en 
MML con los signos + o # para los sostenidos y — los bemoles. 
Hay que tener en cuenta que intervalos como MI-FA o SI-DO 
son tan sólo de medio tono, y por lo tanto la máquina no inter- 
preta correctamente la nota que pretendemos que suene si in- 
troducimos por ejemplo un SI sostenido (B#) o un FA bemol 
(F-). 

Hemos dicho antes, que la llave del Macrolenguaje musical 
es PLAY, cuya sintaxis es la siguiente: 

PLAY (cadena alfanum) ((, cadena alfanum)(, cadena alfa- 
num)) 

Las tres cadenas alfanuméricas indican que se puede com- 
poner música a una, dos o tres voces mediante esa instrucción. 

Con lo que hemos visto hasta ahora, podemos atrevemos a 
escribir como mínimo una escala en MML. La de DO mayor — 
la más sencilla—, es como sigue: 

PLAY «CDEFGAB05C» 

Habrá notado que en medio de la secuencia hemos incluido 
«05». Tiene una explicación muy simple: La distancia entre 
DO y el siguiente DO se denomina octava en música. Se trata 
de la misma nota, pero una vez es más aguda que la otra. MSX 
toma como valor efe octava por defecto, el DO central del piano 
(04) . En el ejemplo anterior, como no hemos indicado ninguna 
octava, la máquina ha comenzado en el DO central; pero para 
completar la escala y acabar en DO tenemos que indicarle que 
el último DO es más agudo, cosa que hemos hecho al incluir 
«05», es decir que hemos indicado a la máquina que toque una 
serie de notas comenzando en el DO de la octava cuarta y que 
termine con el DO de la octava quinta. Los valores de «O» de- 
ben estar comprendidos entre 1 y 8. Si volvemos a ejecutar la lí- 
nea anterior, nos encontraremos con que se inicia en la octava 
quinta esta vez. Para evitar esto, hagamos lo siguiente: 

PLAY «04CDEFGAB05C» 

Al no indicarle a la máquina en que octava debe comenzar 
toma como valor por defecto la octava en que finaliza. Para evi- 
tar esto, es conveniente indicar siempre en que octava desea- 
mos comenzar. 

Con el MML también es posible controlar la duración de las 
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notas. Por defecto, el ordenador asigna a todas las notas el valor 
L4 (negra), pero las longitudes de las notas y silencios, se indi- 
can al ordenador mediante L y R respectivamente, según la ta- 
bla siguiente: 



NOTAS 



SILENCIOS 

L1 

(redonda) 

4 

tiempos 

R1 

L2 

(blanca 

2 

tiempos 

R2 

L4 

(negra) 

1 

tiempos 

R4 

L8 

(corchea) 

1/2 

tiempos 

R8 

L16 

(semicorchea) 

1/4 

tiempos 

R16 

L32 

(fusa) 

1/8 

tiempos 

R32 

L64 

(semifusa) 

1/16 

tiempos 

R64 


Los tresillos de corchea pueden introducirse con L9, y los 
múltiplos y divisores de 9 nos los darán para cualquier otra du- 
ración. En MML también se pueden indicar las notas en forma 
numérica mediante «N» seguida de un número entre 0 y 96, te- 
niendo en cuenta que mediante esta notación, las notas se cuen- 
tan semitono a semitono. De tal modo, N36 es «CMC» y N35 
«04C + ». Los puntos (.) en MML cumplen la misma función 
que los puntillos en música, es decir, aumentan la duración de 
la nota en la mitad de su valor. 

Podemos también variar el «tempo», es decir, la velocidad 
de ejecución de la melodía, mediante la orden «T». El tempo 
por defecto en MML es «T120» —ciento veinte negras por mi- 
nuto™ y sus valores pueden oscilar entre 32 y 255. Si se produce 
algún error, o por algún otro motivo suena BEEP (chr$) (7)$ se 
vuelve al tempo por defecto. 

PLAY«T20004L8C.DE.FG.AB.05C2» 

(obsérvese que C2 es lo mismo que L2C) 

También podemos modificar el volumen utilizando (V) se- 
guida de un número entre 0 y 15. El volumen por omisión es 
V8. 

En los ejemplos que hemos ido viendo hasta ahora, hemos 
utilizado PLAY como instrucción en modo directo para uña 
sola voz. 

Evidentemente, también puede usarse en modo diferido y 
almacenar su contenido en variables de cadena: 
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10 A$=«T20004L8C.DE.FG.AB.05C2» 

20 PLAYA$ 

Podemos también definir una sub rutina enMML mediante 
«X (nombre de variable);»: 

10 A$=«T200O4L8C.DE.FG.AB.O5C2» 

20PLAY «03CDEFGABXA$;» . 

Como podemos imaginar fácilmente, es posible anidar va- 
rias «subcadenas» empleando X, lo cual aumenta infinitamente 
las facilidades de composición. 

Si deseamos extender la composición a dos o tres voces, 
sencillamente tenemos que definir cada una de las que vayamos 
a utilizar y ejecutarlas mediante PLAY separadas por una 
coma: 

10 A$ = «T200O4L4CDEFGABO5CO4GEC2» 

20 V$ - «T2 00O6L 1 6BAGF AGFE GFED FEDC EDC05B 
06DC05BA 06C05BAG AGFE GFED L2 G» 

30 C$ = «T200O3 L2C.E.G.04C.L2E» 

40 PLAY A$, B$, C$ 

Existen todavía dos instrucciones que podemos utilizar con 
PLAY: La selección de forma de onda (Sn), cuyo argumento 
«n» puede valer de 0 a 13 y cuyo valor por defecto es 1 y la mo- 
dulación o período (Mn), cuya «n» esta comprendida entre 0 y 
63533, siendo su valor por omisión 255. De todos modos, estas 
«subinstrucciones» tienen íntima relación con SOUND, que 
pasamos a ver ahora. Digamos simplemente que si se desea mo- 
dificar el sonido de PLAY (su timbre), debe nacerse utilizando 
S y M. Por ejemplo: 

PLAY «S 1M5000CDEFFEDC» 

Nos interpreta esas notas en «staccatto». 

Una cosa más: 

Si utilizamos «S», perdemos todo el control sobre el volu- 
men (V). 

Aún hay otra utilización de PLAY : 
a = PLAY (número voz) 

Nos indica si hay o no música interpretándose. Número voz 
debe estar comprendido entre 0 y 3 siendo 1 la primera voz, 2 la 
segunda y 3 la tercera mientras que 0 indica si suena o no músi- 
ca. La A valdrá 0 si no se está interpretando música. En caso 
contrario valdrá -1. 
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10 * BLUES 6^4 
20 GOSUB 100 
30 CLEAR1000 

40 A$= n t 182vl5r2. r414o4gb-o512d - d . 
14d. 18co4ge~l4dcfl2d,d. r214ce-gb~o 
512d~14d— o 4 12b-. b-o514e-d-o4b~g-12 
f . f 14e — g 1 2c c . r 41 8a- f a~f 1 2a. - . r4 18b- 
gb-g 12b-. 14o5ce-f g . 18fl4e-c.'o418b- 
14gf gb- M 

50 B^="t 182v'15o512d . d . 14d . 18co4ge- 
I4dcfl2d . d . r214ce-gb-o512d-14d-o41 
2b-, b-o5l4e-d-o4b-g-12f _fl4e-gl2 cc 
. r418a~f a-f 12a-, r418b-gb -g 12b~. 14o 
5ce-f g . 18f 14e-c . o4l8b-14gf gb-" 

60 FLAVAS 
20 PLAYB$ 

80 PL AY " 1 1 82o 5.1 2d . . 

90 GOTO 90 

100 OPEN " GRP > " AS# 1 

110 SCRFFN 3 

120 PSET C40, 70D :PRINT#1 » !Í BLUES” sP 
SET C60, 1203 :PRINT#1 , ,l 6/4 ! ' 

130 RETURN 


10 F0R A= 1 TO 2 

20 A$-"s3 m7000 c 2 . o 3g8 . b 1 6o4c 2 . o3 
g8. b 16o4c8c8o3g8b8o4c8c8o3g8b8o4c4 
e4g4b4o5c ic + lo4o5d4'‘ 

25 B$="s3 m7000 c 2. o 3g 8. b 1 6o4c2. o 
g8. b 18oHc8p8o|3g8b8o4c8c8o3g8b8o4c 
e 4g4b 4o 5c 1 c +2. 116agfed2 n 
30 PLAY A$;PLAY B$ 

40 NEXT 


18 'motivo sinfonía JUPITbRCUí. A. M 
02ART3 

20 A$- U s 3m7800c 4 r8o3g 18al8b 18c4r8o 
3g 18a 18b 18c4r2r8o5c8c4. b8d4,c8g2f4 


30 PLAY A$ 


.4 OJ 


SOUND Y BEEP 

Hemos estado viendo hasta ahora el funcionamiento del 
MML y de la potentísima instrucción PLAY que poseen todos 
los MSX. Veremos ahora cómo también es posible acceder di- 
rectamente a cada uno de los registros del Generador Progra- 
mable de Sonido (PSG). 

Este generador dispone de' 14 registros o canales, numera- 
dos del 0 al 13 de un byte cada uno y en los que, lógicamente, se 


SOUND es la siguiente: 


Funciones de los regitros del PSG y gama de datos de escritura 

N.° de registro 

Función 

Gama de datos 

0 

Frecuencia del canal A 

0-255 

1 

0-15 

2 

Frecuencia del canal B 

0-255 

3 

0-15 

4 

Frecuencia del canal C 

0-255 

5 

0-15 

ó 

Frecuencia de ruido 

0-31 

7 

Selecciona un canal para genera- 
ción de tonos y ruido. 

0-63 

8 

Volumen del canal A 

0-15 

9 

Volumen del canal B 

La variación del volumen 
ocurrirá cuando se 

10 

Volumen del canal C 

seleccione 16. 

11 

Frecuencia del patrón de varia- 

0-255 

12 

ción de volumen. 

0-255 

13 

Selección del patrón de varia- 
ción de tonos y ruido. 

0-14 











































SOUND registro, datos 

Como acabamos de ver en PLAY, podemos emitir sonidos 
por tres canales simultáneamente: Llamemos a cada una de las 
voces A, B y C respectivamente. Los catorce registros del PSG 
también nos permiten hacer esto. Veamos qué hace cada uno 
de los registros. . . 

Los registros 0 y 1 corresponden a la voz A. El registro 0 es 
el byte de orden inferior y el 2 el de orden superior. No se utili- 
zan los 4 bits superiores de estos bytes. Los registros 2 y 3 co- 
rresponden a la voz B. Corresponden respectivamente a los by- 
tes de menor y mayor peso y tampoco se utilizan los 4 bits supe- 
riores de estos bytes. 

Lo dicho hasta ahora resulta igualmente válido para los re- 
gistros 4 y 5. Es decir, el registro 4 es el byte de menor peso de 
la voz C y el 5 el de mayor; y tampoco se utilizan los 4 bits supe- 
riores de estos bytes. En los registros 1, 3 y 5 se pueden escribir 
valores oseñantes entre 0 y 15 y en los registros 0, 2 y 4 valores 
entre Oy 255. 

El registro 6 es el generador de ruido y produce «ruido 
blanco» con el que se pueden obtener interesantes efectos so- 
noros. Almacena valores comprendidos entre 0 y 3 1 que corres- 
ponden a las frecuencias de ruido. 

El registro 7 es el mezclador. Selecciona la fuente del sonido 
(uno de los tres canales o el generador de ruido) y los conecta o 
apaga. Los dos bits de orden superior (los dos últimos) no se 
usan. Los sexto, quinto y cuarto activan el ruido y los tres últi- 
mos los tonos. Puede almacenar datos comprendidos entre 0 y 
63. Para tener una visión más clara del resultado que queremos 
obtener con este registro, podemos escribir en el los datos en 
binario, lo que nos ayuda a ver cuales de los canales conectamos 
o apagamos. Por ejemplo: 

SOUND 7,&B00111000 

Debemos tener en cuenta que el orden de las voces es CBA, 
siendo la voz A la menos significativa. 

Los registros 8, 9 y 10 controlan el volumen de salida de los 
sonidos producidos por los tres canales: El registro 8 esta aso- 
ciado al canal A, el 9 al canal B y el 10 al canalC. Cada uno de 
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estos registros puede almacenar valores comprendidos entre 0 
y 16, correspondiendo el 0 al silencio y 15 al máximo volumen. 
Cuando él valor sea 16 daremos paso a la variación de volumen 
para patrones de envolvente. 

Los canales 1 1 y 12 son los que nos permiten regular el pe- 
riodo del envolvente, que se determina mediante los datos que 
escribamos en los registros 11 y 12. Podemos obtenerlos de 
acuerdo con la siguiente fórmula: 


1.996.750 (Hz) 
periodo (Hz}*256 


= 256* (datos reg. 12) + (datos reg. 11) 


En ella podemos darnos cuenta de que el registro 1 1 es el 
bvte de orden inferior del periodo de envolvente y el registro 12 
el de orden superior. 

Si por ejemplo deseamos establecer el periodo a 15 Hz de- 
beremos escribir 8 en el registro 11 y 2 en el 12: 

1.996.750/(256*15) = 256 * 2 + 8 

Tras esto, sólo nos queda establecer 16 como volumen del 
canal en el que deseemos utilizar el patrón calculado. El regis- 
tro 13 es el que nos posibilita la selección de una de las ocho for- 
mas de envolvente disponibles (sólo utiliza los cuatro bits infe- 
riores). Puede contener valores entre 1 y 14. El gráfico de la pá- 
gina siguiente muestra las 8 formas de envolvente., 

10 'Despegue de helicóptero 

20 SOUND 1, 12 

30 SOUND 4,222 

40 SOUND 8,10 

50 SOUND 2,33 

60 SOUND 9, 110 

70 SOUND 7, &B1 0001 111 

80 SOUND 3,255 

90 SOUND 7, 1 000010 1 

100 FOR Z~0 JO 255:S0UND 13,Z»NEXT 

110 FOR S= 1 TO 255 • SOUND 11,S:NEXT 

120 POR C= 1 TO 1000 :F0R A^0 TO 254:S0UN 

D 6 , A i NEXT :NEXT 

130 SOUND 11,2 

140 SOUND 2,33 

150 SOUND 9,0 
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Todavía nos queda otra sentencia para producir sonido, 
aunque es la más limitada de todas. Se trata de BEEP, que emite 
una señal acústica y reinicializa todas las instrucciones sonoras, 
es decir, para cualquier sonido que se esté produciendo. Equi- 
vale a teclear ?chr$(7) o CTRL G y también es producido por 
cualquier mensaje de error o cuando encuentra STOP durante 
la ejecución de un programa. - 7 T.-G 
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CAPITULO X 


Las interrupciones 

A menudo resulta muy interesante poder ordenar al micro- 
procesador que interrumpa el trabajo que esta efectuando, en 
provecho de una tarea de mayor prioridad. 

Hasta ahora las rutinas de interrupción que incorporaban 
los ordenadores personales,: sólo eráñ accesibles en lenguaje 
máquina. El sistema MSX, sin embargo, nos posibilita el modo 
de manejar desde él BASIC estás interrupciones asincronas, in- 
dependientes del ciclo del reloj interno, o lo que es lo mismo, 
que se puedan producir en cualquier momento a voluntad del 
programador. Las posibilidades de controlar estas interrupcio- 
nes son cinco. 

La primera de ellas ya la hemos visto en el capítulo en que 
hablamos de los SPRITES. Nos referimos a ON SPRITE GO- 
SUB (número de línea). Como vimos, esta instrucción produce 
una interrupción del p ro grama cuando se solapan (tienen algún 
punto de intersección) dos SPRITES, en ese momento la má- 
quina produce un salto a la subrutina que comienza en el núme- 
ro de fínea indicado en la instrucción. 

Las restantes interrupciones son: 

ON KEY GOSUB (n de línea), la interrupción se produce 
cuando se oprime determinada tecla de función. 

ON STOP GOSUB (n de línea), cuando pulsamos la tecla 
de control y la de STOP a la vez, el programa salta a la subrutina 
indicada. 
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ON STRIG GOSUB (n de línea), en este caso la barra espa- 
dadora o el disparador del joystick accionan la interrupción. 

ON INTERVAL GOSUB (n de línea), genera una inte- 
rrupción transcurrido un cierto tiempo desde la ejecución de 
un RUN, ejecutándose cada fracción de tiempo. Este tiempo es 
igual a N*í/50 de segundo, o sea, que para N=50 el intervalo 
es de un segundo. 

Para que entren en juego estas cinco posibilidades de inte- 
rrupción necesitan de una sentencia de salida. Esta instrucción 
es similar en los cinco casos y toma la forma siguiente: SPRITE 
ON, KEY (número de tecla de función) ON, STOP ON, 
STREG (número de mandos para juegos) ON, INTERVAL (N, 
intervalo de tiempo) ON, repectivamente. 

En el caso de KEY (número de tecla) ON es muy importan- 
te que no la confundamos con la instrucción KEY ON sin nú- 
mero de tecla de función, pues esta instrucción no tiene ningún 
tipo de valor en el capítulo de interrupciones y se limita a visua- 
lizar o borrar de la pantalla la cadena asignada a las teclas de 
función. 

Todas estas sentencias de constatación de interrupción se 
complementan con otras dos instrucciones, cada una de las 
cuales obtienen al sustituir la palabra ON por las palabras 
STOP, y OFF, con lo que obtendremos, en el caso de la inte- 
rrupción producida por las teclas de control +STOP las si- 
guientes instrucciones: STOP ON, STOP OFF, y STOP 
STOP. En el caso de STRIG (mando de juegos) nos da 

STRIG (número de mando) ON 

STRIG- (número de mando) OFF 

STRIG (número de mando) STOP 
y lo mismo para las restantes. En el fondo estas instrucciones 
cumplen la misma función, aplicada a distintos tipos de inte- 
rrupción. 

El funcionamiento de estas instrucciones no es en principio 
complicado. 

La primera sentencia del tipo ON KEY (n) GOSUB (núme- 
ro de línea) nos indica que se puede producir una interrupción 
(insistamos que puede producir, no que se vaya a producir) y 
que en caso ae que se produzca, esa interrupción envía el flujo 
del programa a un número de línea determinada. A, 

La siguiente instrucción del tipo KEY (n) ON confirma la 



anterior orden y es en ese momento, cuando el ordenador em- 
pieza a investigar si se cumple la condición de interrupción 
(apretar una tecla, la barra ae espacios, el disparador de joys- 
tick, etc), y cuando esto se cumple se empieza a ejecutar la su- 
brutina cuyo inicio está en la línea definida enla primera ins- 
trucción ON KEY GOSUB (n). Por ejemplo, sí durante un 
programa preparamos una interrupción definida mediante ON 
KEY GOSUB 1000 y la activamos mediante KEY (1) ON, en 
cuanto pulsemos la tecla de función número 1 el flujo del pro- 
grama salta a la línea 1000 y ejecutan las instrucciones que en- 
cuentre hasta la instrucción RETURN, que devuelve el control 
a la línea siguiente a la que se encontraba antes de pulsar la tecla 
de función. Si durante la ejecución de la subutina se vuelve a 
dar la condición de interrupción, mediante la tecla de función 
número 1 (o mediante otro dispositivo de interrupción previa- 
mente definido) la subrutina sigue ejecutándose y al regresar 
tras el RETURN al programa principal, antes de continuar 
vuelve a ejecutar la subrutina ae interrupción. Es decir que 
identifica la nueva condición de interrupción y se reserva su eje- 
cución para cuando haya terminado de ejecutar la primera. 

10 ON KEY GOSUB 1000 
20 KEY CU ON 
30 SCREEN 2 

40 LINE C30» 903-C 100, 2503 , , 8 
50 GOTO 40 

1000 REN SUBRUT I NO DE INTERRUPCION 
1100 CLS 

1200 FOR 1=10 TO 100 STEP 10 
1300 CIRCLE C 1 30 * 38 3,1,,, 1,^71 
1400 NEXT I 
1500 CLS 
1600 RETURN 

Evidentemente, se pueden forzar interrupciones dentro de 
una rutina de interrupción (interrupción anidada). Para ello 
basta con introducir dentro de esta otra instrucción del tipo 
KEY (n) ON, con lo cual sí se produce una nueva condición, la 
rutina se ejecuta otra vez desde el principio sin esperar al final y 
luego sigue con la primera interrupción de forma similar a la 
técnica de los bucles anidados. 
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10 0N KEY GOSUB 60 
20 KEY C13 ON 
30 SCREEN 2 

40 L I HE C30, 303-C 100, 250 P , > B 
50 GOTO 40 

60 REO SUBRUTINFs DE INTERRUPCION 
70 KEY CU GN 
80 BEEPsCLS 

30 FOR I ~ 10 TÜ 30 STEP 10 

100 CIRCLE C 130, 383 , I , , , 4, ,71 . 

110 NEXT I 

120 CLS 

130 RETURN 40 


Si por el contrario queremos, que una vez ejecutada la pri- 
mera interrupción no sean posibles nuevas interrupciones nos 
basta con introducir una instrucción del tipo KEY (n) OFF con 
lo cual el ordenador ignora la condición impuesta. Finalmente, 
con las instrucciones del tipo KEY (n) STOP se consigue que 
reconozca la condición impuesta, pero no ejecuta la interrup- 
ción hasta que más adelante se le de una orden del tipo KEY (n) 
ON. 

Dado que exiten 10 teclas de función (incluyendo mayúscu- 
las) cinco posibles disparadores de joystick (que van del 0 al 4), 
si añadimos las posibilidades de INTERVAL SPRITE y STOP 
nos encontramos con la posibilidad de gestionar 18 subrutinas 
de interrupción independientes. Si unimos a éstas la posibili- 
dad de producir interrupciones anidadas dentro de otras, por 
condiciones diferentes, veremos que las posibilidades son casi 
ilimitadas, aunque exigen una programación minuciosa. Los 
programas de la página siguiente nos ilustran al respecto. 

Recuerde que cuando se acepta una interrupción, ésta se 
produce al terminar la ejecución de la sentencia BASIC en cur- 
so y RETURN devuelve el flujo del programa a la siguiente sen- 
tencia. Además, tenga cuidado si utiliza un valor para «INTER- 
VAL ON» muy pequeño, pues es posible que nunca llegue a sa- 
lir de la rutina de interrupción (su valor máximo, puede ser 
65535). 
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10 ' esto es un ejemplo 

20 ' de on sprite gosub 

30 ' cuando los sprites 

40 ' se solapan oiremos 

50 ' oiremos un beep. 

60 SCREEN 2 

70 A*=CHR* (60) +CHR* (62) +CHR* ( 71 ) +CHR* (207) 
80 B*=CHR* (63) +CHR* < 126) +CHR* ( 124) +CHR* (56) 
90 SPRITE* (0) =A*+B* 

100 QN SPRITE GOSUB 170 

110 SPRITE ON 

120 FOR X=0 TO 255 

130 PUT SPRITE 0, (X , 100) , 15,0 

140 PUT SPRITE 1 , (255-X , 100) , 10,0 

150 NEXT X 

160 END 

170 SPRITE OFF 
180 BEEP 
190 SPRITE ON 
200 RETURN 


10 ' ejemplo de on strig gosub 

20 ' cuando pulse la barra de 

30 ' espac ios , aparecerá hola, 

40 ‘al no haber introduc ido 
50 ' ninguna instrucción RETURN 
60 'no podemos salir de esta 
70 'subrrutina de interrupción, 

80 'si pulsamos el disparador 
90 'del primer joi sti ck , apar ece 
100 'hola de nuevo, y si es el 
110 ' el disparador del segundo 

120 'joistick, entonces aparece 
130 'otro mensaje. 

140 ON STRIG GOSUB 170,190,210 

150 STRIG <0) ON: STRIG ( 1 ) GN:STRIG<2) ON 

160 GOTO 150 


96 



170 PRINT "Hola" 

180 GOTO 170 

190 PRINT "Hola de nuevo" 
200 GOTO 190 

210 PRINT "vaya, que pesado" 
220 GOTO 210 


10 ON STOP GOSUB 100 
20 STOP ON 

30 PRINT "programa principal" 
40 GOTO 40 

50 PRINT "ctrl+stop ejecutado" 
60 RETURN 30 


10 ON INTER VAL— 50 GOSUB 100’ 

20 INTER VAL ON 

30 S CREEN 2,1 

40 AS= CHR$ <S<H18) + "< + 

50 B$= CHR$ < SíHFF ) +CHR$ < &H 1 8 ) 

60 C$= CHR$ <&H18> +CHR$ <&H18) 

70 D$= CHR$ (&H18) 

80 SPRITE$<1)=A$+B$+C$+D$ 

90 GOTO 90 

100 X = INT <RND < 1 ) *256) : Y— INT (RND ( 1 ) *192) 
110 C=INT<RND(l)*l4)+2 

1 20 PUT SPR I TE 1, (X,Y) ,C,1 
130 RETURN 90 
140 LLIST 
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CAPITULO XI 


Introducción al lenguaje máquina 

En esencia io único que puede hacer un ordenador es mo- 
ver números de un lugar a otro y efectuar las más básicas opera- 
ciones matemáticas (suma y resta). Visto asi parece sorprenden- 
te que se los describa como aparatos potentes y capaces de rea- 
lizar un gran número de misiones. 

Una de las razones que lo hace posible es que los micros do- 
mésticos son suministrados con un sistema que nos permite de- 
cirles qué tienen que hacer en un lenguaje que se aproxima mu- 
cho más al inglés que al idioma que habla el propio aparato. 
Programamos los aparatos en BASIC, un lenguaje de ordena- 
dor diseñado para hacer la programación general bastante sim- 
ple. 

Efectivamente, el lenguaje BASIC es el medio para llegar a 
un final y el final es la producción de un código que el ordena- 
dor entiende y que le hace reaccionar de la manera que quería- 
mos originalmente. Pero el ordenador no sabe nada de BASIC, 
nada de variables y muy poco de cualquier cosa que pudiéra- 
mos considerar útil. Habla un lenguaje completamente diferen- 
te, extremadamente simple, llamado código de máquina. 

El código de máquina consiste en una corriente de números bi- 
narios (0 y 1) que el aparato examina y que después le hacen 
reaccionar en una manera que depende del diseño de uno de los 
chips que están en el interior del ordenador. 

Este chip es el microprocesador, que en todos los ordena- 
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dores MSX es el Z80. Este procesador es uno de los chips más 
versátiles de su género. 

Cuando programamos un micro MSX en BASIC sigue ne- 
cesitando recibir sus instrucciones en su propio código de má- 
quina, que es único para los Z80 e ininteligible para cualquier 
otro microprocesador. 

¿Cómo sabe el ordenador cómo reaccionar a las instruccio- 
nes BASIC que le damos? De la misma manera que intentaría- 
mos entender a alguien que nos hablara en arameo a través de 
un intérprete. 

En términos del ordenador, un intérprete es un programa 
que convierte las instrucciones del lenguaje que usamos ai códi- 
go de máquina que emplea el procesador. Como esta cuestión 
es bastante complicada y tiene que ser llevada al cabo con un 
máximo de eficacia tanto en términos de velocidad como en 
términos del uso de memoria, el intérprete está generalmente 
escrito en el propio código máquina. Un intérprete BASIC exa- 
mina cada instrucción en particular que tecleamos y después 
ejecuta un conjunto predeterminado cié instrucciones en códi- 
go de máquina para llevar a cabo la función deseada. 

Un intérprete no es muy inteligente y es de hecho incapaz 
de recordar la mayoría de las cosas que ha examinado anterior- 
mente, tanto es así que tiene que hacer exactamente la misma 
cosa una y otra vez. 

Esto hace que la interpretación sea muy lenta. Aunque un 
programa que escribimos parece funcionar a una velocidad tre- 
menda, en términos de lo que es capaz el aparato, va muy lenta- 
mente. Así que ¿qué significa esto? Simplemente que si quiere 
escribir un programa muy rápido, BASIC no le servirá. Em- 
pleando el BASIC significa también que muy a menudo muchas 
de las posibilidades de «bajo nivel» del aparato no están dispo- 
nibles para nosotros a través del intérprete. 

Un ejemplo ideal para ilustrar esto es un programa de juego 
donde estamos intentado mover un objeto fácil y velozmente a 
través de cierta área de la pantalla. La velocidad no puede ser 
realizada en BASIC y no hay instrucciones en BASIC que nos 
permitan llevar a cabo este tipo de operación. En este tipo de si- 
tuaciones estamos invariablemente forzados a programar en el 
mismo código de máquina. 

Acabamos de ver que el código de máquina no es otra cosa 



que una serie de números, así que a primera vista puede parecer 
que la programación en código de máquina no va a ser una ocu- 
pación muy divertida. Lo cual no deja de ser cierto, pues, una 
auténtica programación en código de máquina, nos exige cono- 
cer a fondo el funcionamiento del microprocesador, que es más 
de lo que se propone este libro. Sin embargo el BAoIC MSX 
dispone de un gran número de instrucciones tendentes a facili- 
tar esta labor, así como otras, que nos permiten, con los conoci- 
mientos necesarios, manipular directamente en las áreas de me- 
moria donde están ubicados, datos e incluso instrucciones del 
programa. Efectivamente, la memoria de un ordenador se re- 
parte entre dos grandes bloques, la RAM y la ROM. Tanto uno 
como otro están compuestos por celdillas perfectamente nume- 
radas y ordenadas que el microprocesador controla. Estas cel- 
dillas están direccionadas por un número exclusivo para cada 
una y suele utilizarse notación HEXADECIMAL para numerar 
estas direcciones. 

El principal interés de la notación HEXADECIMAL reside 
en la facilidad para transformarla en binaria de un vistazo, sin 
necesidad de cálculos aritméticos, mientras es evidente la difi- 
cultad que entraña pasar de decimal a binario. La traducción de 
HEXA a binario es directa según la siguiente tabla de conver- 
sión: 


0 

00000000 

00 

1 

00Ó00001 

01 

2 

00000010 

02 

3 

00000011 

03 

4 

00000100 

04 

3 

00000101 

03 

6 

00000110 

06 

7 

00000111 

07 

8 

00001000 

08 

9 

00001001 

09 

10 

00001010 

0A 

11 

00001011 

0B 

12 

00001100 

oc 

13 

00001101 

0D 

14 

00001110 

0E 

13 

00001111 

0F 


100 




De la siguiente manera traducimos Hexadecimal o binaria; 
los números decimales 0,32 y 100 


&H00^ 

&BOOOO 0000 


&H20 


&H64 


y 234 


&B0010 0000 &B0110 

&HEA^ 

&B1110 1010 


/ \ 

.0 010 ( 


Con la notación decimal el número 65535 no nos salta a la 
vista ni se nos presenta como importante dentro de la estructu- 
ra del microprocesador. Sin embargo, si lo traducimos a Hexa- 
decimal nos encontramos con 

&HFFFF = 65535 

que es el tope máximo de memoria que puede direccionar el 
microprocesador Z80A. El kilo de los informáticos, la celebre 
K, se nos convierte en &H400 o sea 1024 en decimal (precisa- 
mente es 1024 para que sea redondo en HEXA; es muy impor- 
tante no pensar que el Kbyte es &H1000 lo cual serian 4 K). 

Mediante el programa inserto al final de este capitulo póde- 
le* el contenido de las áreas de memoria que desee- 


mos lUitlUUUU^iiuu 

Así pues, la memoria de un ordenador MSX se numera por 
áreas desde &H0000 (Hexadecimal 0) hasta &HFFFF, en un 
aparato de 64Ky se reparte de la siguiente manera (ver gralico) 




MAPA DE MEMORIA 

&HFFFF 

AREA DE TRABAJO SISTEMATICO 

&HF380 

BLOQUE DE CONTROL DE ARCHIVO 



&H8000 
&HCOOO 
para 16K MSX 


&HOOOO 


AREA DE CADENAS 


AREA DE APILADO 


AREA LIBRE 


VARIABLE 


AREA DE PROGRAMA BASIC 


ROM DE MSX BASIC 



&MF380 

&HFFFF 


Afea 2 de usuario 


Area 1 de usuario 


Area del sistema 


Cuando ta RAM 
instalada sea de 
16K bytes. 


Cuando ta RAM 
instalada sea de 
64K bytes. 
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CONFIGURACION ESF amaconsusnú ' 

DEL AREA 

DEL USUARIO 

Area de variables . 

Almacena datos numéricos y ios 
punteros para los datos alfanumóri- 
cos. 

Area de variables de matriz 

Almacena los datos de las variables 
de matriz. También almacena el 
puntero para el área de cadenas si 
los datos son aifanuméricos. 

1 


Area libre 

No utilizada. El tamaño podrá cono- 
cerse utilizando ia función FRE. 

Area de la pila 

Utilizada para guardar direcciones 
de retorno. 

&H8000 

{&HC0Q0} 

Área de programa 


Área de variables 


Área de variables de matriz 

Area de cadenas 

Almacena cadenas incluyendo las 
variables y variables de matriz alfa- 


Área libre 


Área de la püa 

El tamaño podrá especificarse con 
una sentencia CLEAR. 


Área de cadenas 

Bloaue de control de archivos 

&HF37P 

Bloque de control de archivos 

Utilizado durante la entrada/salida 
de archivos. 




pue^ ncf podenfos^tSa? svT raSmklo'tSta memMia 
no desaparece al desenchufar el ordenador). B * en esta rnern^ 



na y las rutinas nacbítu^ 7 . ^ t-v* i* 

rntmíis de 1/0 gestión de periféricos, etc. etc. la 
&H80000 a la &HF380 (siempre en el caso de un aparato con 
64K), disponemos de espacio para introducir programas en 
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BASIC, y desde allí a la &HFFFF, es la zona del sistema en que 
se almacenan los valores de las variables. Jas cadenas y tablas, 
así como los espacios para dispositivos de archivo que creamos 
con la instrucción MARFILES, y es llamada área de trabajo del 
sistema. Este espacio se puede modificar con la instrucción 
CLEAR. Estas dos últimas divisiones de la memoria reciben el 
nombre de RAM (Random Acces Memory) memoria de acceso 
aleatorio, pues en ellas podemos grabar y leer, aunque por ello 
también su contenido desaparece al desconectar el aparato 
(RESET). 

Mediante la instrucción CLEAR podemos reservar en la 
RAM un espacio para rutinas en código máquina. 

Ya vimos la instrucción CLEAR en el capítulo sobre series y 
tablas, aunque aquí nos interese su segundo parámetro, que allí 
no estudiamos. 

Con CLEAR se puede reservar espacio de memoria para va- 
riables de cadena y código de máquina en el área de trabajo de 
sistema. 

Se puede reservar espacio de memoria cambiando el área de 
memoria más alto disponible para el uso de BASIC. El área de 
memoria más alta por defecto es &HF380 pero puedes bajarla 
usando CLEAR, (men-alt). El espado de memoria creado pue- 
de ser usado para almacenar programas en código de máquina 
y datos. 

El área de memoria entre &HFFFF y &HF380 es usado por 
el ROM de BASIC como espacio de trabajo de sistema. 

Recuerda que CLEAR (espacio de cadena) decide el tama- 
ño del espacio para cadenas. 

SYNTAXIS 
CLEAR 

(espacio de cadena) 

CLEAR, (mem-alt) 


CLEAR 

(espacio de cadena) 
CLEAR, (mem-alt) 


Decide el tamaño del espacio para 
las cadenas 

Decide el lugar de memoria más alto 
disponible para BASIC (la coma , anula 
el l. er parámetro) 

Decide el tamaño del espacio de 
cadena como también el lugar más alto 
de memoria disponible para BASIC 
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OLeIr limpia el área de variables, borrándolo todo. 
CLEAR 255 aumenta el área de trabajo de cadena a 

^ CLEAR, &HF 300 crea espacio para el programa en código 
de máciuina del usuario entre &ELF300 y &HF380, 

Existen en el BASIC MSX una serie de instrucciones que 
nos facilitan la labor de introducir programas en lenguaje ma- 
quina y su posterior ejecución, asimismo, es posible, el introdu- 
cir rutinas en lenguaje máquina y ser ejecutadas desde un pro- 
grama en BASIC, sin embargo la programación en código ma- 
quina requiere unos conocimientos de la arquitectura interna 
del ordenador, y sus registros, así como alguna experiencia en 
lenguaje ensamblador, por lo <jue comentaremos sm entrar en 

■ección me- 



m ° Podemos introducir en la dirección expresada una serie de 
las rutinas en lenguaje máquina que irán numeradas de 0 a y [el 
número lo colocaremos en (A)] la dirección es, naturalmente, la 
dirección de inicio de la subrutina, pues ésta tiene ya el fanal 
marcado mediante un código END o de final de programa. 
Como nada nos prohibe introducir una direccioi^e memoria 
de la ROM, con el suficiente conocimiento, del FIKMWAKü 
podemos utilizar las rutinas del sistema operativo, en nuestro 
provecho, durante la ejecución de nuestros programas en BA- 
SIC. 

Para llamar a la ejecución a cualquier subrutina [definida 
por DEFUSR, necesitaremos utilizar una función UhK sintaxis 
x = USR (A) (expresión) en la que A es el número que le hemos 
dado a la subrutina en la instrucción DEFUSR, y la expresión, 
es la evaluada mediante esta subrutina, es decir, el valor de ia 
expresión, pasa a ser argumento del la subrutina en maquina 
(dicho de otra manera, el valor de la expresión, sera el manipu- 
lado, mediante la subrutina definida). 

Ejemplo, si mediante una sentencia DEFUSR preparamos 
la entrada a la subrutina del sistema operativo que se encuentra 
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rnmnroK 8 V ? loreS P ° r defec j° < lo f de la P^sta en marcha). Para 
comprobarlo, primero modifica los valores de las teclas de fun 

clon y a continuación ejecuta estas líneas de programa 

10 DEFSR3 = &H003E 
20 x = USR3(x) 

En este caso la expresión x sólo tiene una valor sintáctico 
pues en k subrutina ejecutada no intervienen cálculos ni opera ’ 

1 wTrcl nmgÚn tlp °' S P embargo, obsérvese la forma de uti- 
> - < ^ U€ P? otro ^ a< ^° es típica de una función 
Es decir en la línea 20 decimos que X es igual al resultado de 
odincar el contenido primario medíante la subrutína 3 escrita 
en codigo maquma y definida en k línea 10. Para volver al BA- 
oiC se utiliza una sentencia RET, 

Las dos instrucciones más. importantes para trabajar en có- 
digo maquma son, sin embargo PEEK y POKE, con las cuales 
p demos escribir y leer directamente, los contenidos de un área 
de memoria, mediante su dirección y de esta forma escribir los 
programas que ejectutaremos con USR. 


POKE (dirección de memoria) (VALOR) 

rekíwL y c PEEI j f °" do ? se “ ten F ias del BASIC íntimamente 
relacionadas con el lenguaje maquma, 

wL a / enten ? a P ? KE ’ como bemos visto en su sintaxis está 
l P S- dos .Y a % es separados por una coma (,). El primer 
es la dirección de memoria que deseemos modificar y tie- 
ne que ser un valor numérico comprendido entre 0 y 65535. 

El segundo valor representa el contenido que deseemos in- 
troducir en esa dirección. Naturalmente, cada dirección es un 

rín C ?v byte i qUe -? U l u e t ? mar 256 (2S) valores diferentes que 
constituye la unidad de almacenamiento de datos más pequeña 

Nada más a sencffl¿°' d6nde SUr8en eStaS 256 P osibili dades? 

q k ? Cada - byte , está compuesto por 8 bits. Imagine- 
os que estos bits están ordenados de menor a mayor (de 0 a 7) 

a ^ n ° T áe estos ordinales corresponde a una potencia 

iunÁn i Wof ’ t P« mer • tót «á 20, por lo tanto igual al, el sí 
gundo 2 (2); el tercero 2 2 (4),.. 
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0 

1 

2 

3 

4 

5 

6 

7 

1 

2 

4 

8 

16 

32 

64 

128 [ 

2 o 

2 1 

2 2 

2 3 

2 4 

2 5 

2 6 

' 2 7 


Por lo tanto, si hacemos un poke a una dirección de memo- 
ria cualquiera, y ponemos como contenido de esa dirección 1, 
querrá decir que hemos encendido el primer bit de ese byte, de 
tal manera; si sabemos qué bits de cada byte queremos encen- 
der o apagar), simplemente debemos calcular la potencia a que 
debe ser elevado 2, y en su caso (si deseamos encender o apagar 
varios) realizar las sumas pertinentes. Si por error diéramos un 
valor mayor que 255 obtendríamos «Illegal function cali». 

La función PEEK nos da el contenido de la dirección de 
memoria que especifiquemos entre paréntesis. Por ejemplo 
PEEK(65535). En esencia, es la herramienta que nos permite 
ver el contenido de cualquier posición de memoria deseada. 

i Cuidado con POKE ! . Si toca un área del sistema o se intro- 
duce un contenido incorrecto en una dirección puede bloquear 
el programa, y sólo podrá solucionarlo haciendo RESET. 


VPEEK y VPOKE 

Corresponden exactamente a PEEK y POKE, pero afectan 
a la RAM de Vídeo o VRAM que dispone de 16 K. indepen- 
dientes para gestión de pantalla. 

Gracias al chip de vídeo TMS-9924 A podemos realizar una 
gran cantidad de operaciones sin ocupar memoria RAM del sis- 
tema. 

La sintaxis es similar a PEEK o POKE 
X = VPEEK (dirección) 

VPOKE (dirección), (VALOR) 

y los datos máximos que podemos dar a dirección y valor 
son 16385 y 255 respectivamente, pues sólo disponemos de 16 
K.( 16383 bits), y de una capacidad de almacenaje de un byte 
(valor máximo contenido en un byte = 255). 
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La instrucción BASE y Ja VDP (que no estudiaremos), com- 
pletan las utilidades de VPEEK y VPOKE. 

Podemos ver sencillos ejemplos de estas instrucciones en 
las carteleras de presentación de algunos de los programas de 
música que damos a título de ejemplo. 

i ’ nsx 

5 REH si se desea. parar la. pantalla opri 
mir stop» son otro stop la ejecución con 
t i n u á „ 

10 SCREENJí COLOR 1,14.*KEY OFF 
20 UIDTH 35 

30 INPUT "Dirección inicial Cen decírr>a!3 
" ;D 

40 IF D<0 OR D> 655351 THEN GOSUB 240 
50 D$=STRING$C4-LENCHEX$CD33 , "0" 3+HEX&CD 
3 

60 PRINT D$í" 11 ; 

70 FOR 1=0 T07 / 

80 I I=PE£KCD+I 3 : 1 1 $=STR I NG$ C 2-L.EN C HEX$ C I 
I 3 3 , n 0 n 3+HEX$C 1 1 3 
30 PRINT 11$:" " ; 

100 NEXTI 

110 FOR I =0 TO 7 

120 II=D+I 

130 1 1 =PEEK C 1 1 3 

140 IFIIC32 THEN 11=46 

150 IF I I> 126 THEN 11=46 

160 PRINT CHR$CII3 : 

170 NEXT I 
180 PRINT 
190 0=0+8 
200 D$=INKEY$ 

210 IF D$=" " THEN 30 
220 GOTO 50 
230 END 

240 PRINT :PRINTTABC83 M #" Int reduce í ón e 
r róne a" ; 

250 GOSUB 260ÍRETURN 

260 PRINT :PRINTTABC 103 "Pu Isa una tecla 1 ' 

270 Z$=INKEY$:¡IF 2$= M! ' THEN 270 
280 RETURN 
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ALFABETICO 


10 SCREEN0 :CLS ¡COLOR 1,14 14 

20 LOCATE 5, 1 sPRINT”Este juego consiste 

en" 

30 LOCATE 5, 2 :RRINT u o rdenar alf abet i carne 
nte" : 

40 LOCATE 5, 3 SPRINT" la serie de letras q 
ue aparece . " 

50 LOCATE 5, 4 : PRINT "Para ello te servirá 
s de 

60 LOCATE 5, 5 : PRINT" los números que hau 
debajo" 

20 LOCATE 5.6 :PRINT"de cada letra. Debes 
i n t noduc i r " 

80 LOCATE 5.7 :PRINT"un numero de 2 cifr 
as 

90 LOCATE 5,8 :PRINT"La primera debe ser 
la, de debajo” 

100 LOCATE 5,9 :PRINT"de la letra que va 
s a. sustituir" 

110 LOCATE 5,10 :PRINT" la segunda, la de 
la. 1 e t ra que" 

115 LOCATE 5. 1 1 i PRI NT "su s t i t u y e s " 

120 LOCATE 5, 12:PRINT"La partida final iz 
a 1 

130 LOCATE 5, 13 :PRINT"cuando las has o n d 
enado 

140 LOCATE 5, 14 :PRINT"co rrectamente toda 


110 


150 LOCATE 7, 16 sPRINT"PULSA UNA LETRA" 
160 Z$=INPUT$C11 °CLS 
1 80 CLS s INPUT "ent ra un numero T' '.W 
190 F0RI = 1T0U : V =RNDC 1 1 sNEXT 
200 SCREEN1 SCÜL0R15, 13, 1 1 sKEYQFP “CLS 
210 A$="" 

220 FORI=1TO10 

230 U$=CHR$C INTCRNDC 1 1X10+651 1 
240 FORJ~lTOI-l 
250 IFU$=MID$CA$. J, 1 1THEN230 
260 NEXTJ 
220 A$=A$+U$ 

280 NEXTI 
290 S= 1 

300 LÜCATE0, 4 SPRINT" re su It ado : " SA$ 

310 PRINTTABC101 í “0 1 23456789 " 

320 LOCATE0, 9 SPRINT" intento numero" SS 
330 L0CATE33, 12 SPRINT" 

340 I FA$= " e.b c d e f g h i j " THENPR I NT " e n c o n t rad 
o en " l Si" intentos" sPLAY " ábe " s£ND 
350 LOCATE0, 12 s INPUT" inoers ion Cforma a, 
bis" sR$ 

360 I=ASCCLEFT$CU$. 1 1 3-47 
370 J=ASCCRIGHT$CU$, 111-47 
380 GOSUB440 

390 IFLEFT$CU$/1 1="0"ORLEF T $CU$, 11 = :, 9"TH 
EN410 

400 1=1-1 sJ=I+2 
410 GOSU8440 
420 S=S+1 
430 GOTO300 
440 8$=" " 

450 F0RT=1T0LENC A$ 1 
460 IFT = ITHENN$=NID$CA$,T, n 
470 IFT=JTHENN$=MID$CA$,T» 11 
480 NEXTT 

490 F0RT = 1 T OLEN í A$ 1 
500 IFT=ITHENB$=B$+M$ SGOTQ530 
510 IFT=JTHENB$=B$+N$ SGOTQ530 
520 B$=B$+MID$CA$,T, 11 
530 NEXTT . 

540 a$=B$ 

550 RETURN 


CANON A TRES VOCES 


10 ’ 

20 ’<& ¿ 

30 * -fi CANON A TRES UOCES ¿ 

40 * «5 ^ 

60 CLS 

100 A^=" 12o4a,l4o5co 4a.g #bo5e 1 Se d 12c . IScdl 
4eo4bg#e 12f - 14f eg#bo5e 12d#14d#d#l lo5s 12o 

4a 1 4o5co4e,g#bo5el Se di 2c. 1 8c dl4eo 4b g#el 2 f 
- I4f e g#bo5e 12d#14d#d#l lo5e " 

110 B$=" rl rl 12o4a,l4o5co4ag#bo5e 18ed 12c . 1 
Scdl4eo4bg#el2f . 14fe 8 #bo5el2d#l4d#d#llo5 
e 12o 4a 14o Seo 4 ag#b o 5e 1 Sed 12c . 18 c d l4e o 4b g# 

e 1 2 f . 1 4f eg#bo5e 12d#14d#d#l lo5e " 

120 C £=’ 1 rlrlrlrl 12o4al4o5co4ag#bo5e 18ed 1 
2c. 18cdl4eo4bg#el2f. I4feg #b o 5e 1 2d # 1 4d #d # 
1 1 o 5e 1 2o4al 4o5co 4ag#b o5e 18e d 12c . 18cdl4eo 
4bg#e 12f . 14f eg#bo5e 12cHU4d#d#l lo5e 11 
130 PLAV A$, 8 $,C$ 

140 PLAV B$,C$,A$ 
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MGON GERMS 


10 ’ 


20 


* 

30 

OOON GERflS 

* 

40 


* 

50 ’# 

JOE FARRELL 

* 

60 




P0 * 3$0j0j0¡e3$BfB}0fc^B|Bí0*0!B£3fc3íB!O!0{BÍHí0|B{0}í3Í0Í0|í3í£'350$0£-3ÍÉ 

80 GOSUB 180 
90 PLAY " 04 '* 

1 00 £$= » T200R2R8L8C#F# A#A05C#L4C#L8C05EL 
4ER4C#04A#. L8G#L1G#R2R805L8F#D#C#C#04A#0 
5L2C#, L4C#. 04L8A#L2A#L405C#L2E- L4A- L8F#L 
4F#F . D. C#L804G#A#L2A#L405C#L4Q4A#L1A# U 
1 10 B$="T200R2R8L8C#F#A#AG#L4G#O5CCR4O4G 
#F#.L8D#L1D# R2R8G5L8F#D#04G#L4G#L2G#.L4 
G#. L8F#L2F#L4G#05L2C. L4E. C#. C. 04A#„ G#L8D 
#F#L2F#L4G#F#L 1 F# M 

120 C$= M T200R2R8L8C#F#A#AD#L4D#L8O5CO4GL 
46R4D#C#.03L8A#L1A#R2R805L8F#D#04D#L4D#L 
20#- L4D#. L8C#L2C#L4D#L2G. L4B. L8G#L4G#GL8 
GL4F. 003L8A#04C#L2C#L4D#C#L1C#“ 

130 PLAY "5308000" , "S1O20B0B", "U12" 

140 FOR A“ 1 TO 2 
150 PLAY A$,B$.C$ 

160 NEXT 
170 GOTO 170 

180 SCREEN 3:F0R A=503 TO 1022 
190 UPOKE A* CRNDC 13X111 + 13 
200 NEXT 
210 RETURN 



BOSSANOVA 


10 GOSUB170 

20 B$= M slm7000t 160r2.ao5ed8e2. . r 4d 
eco4b~8o5c2. . r4o4b-o5co4ag8a2. . r4g 
a" 

30 C$= "si m7000t 1 60f +2 . r8a2. . " 

40 Cl$= n s lm7000t 160f +2, . ” 

50 D$= "si m?800t 1 60o 5e d 8e 2 . . r4deco4 
b-8o5c2. . r4o4b~o5co4ag8a2. - r4ga" 

80 Dl$=”s lm7000t 160o5ed8e2, . r 4deco 
4b -8o 5c 2. . r4o4b~o5co4ag8a2. - r4ga Jt 
70 E$-"slm6000t 168f +1 " 

88 F$="$ Im5500t200rl 12agf +fo5co4ag 
+ f +agef+d 1 r2. 14a. ” 

90 PLAY B$ 

100 PLAY C$ 

110 PLAY D$ 

120 PLAV E$ 

130 PLAV F$ 

140 PLAV Dl$ 

.150 PLAV Cl$ 

160 GOTO 160 

170 OPEN ,; gpp:”AS#l 

180 SCREEN 3 ¡COLOR 12,7,2 

190 LINE C0, 1503-C255, 1503 

200 PAINTC0, 191 3 

210 PSET C45, 30 3 :PRINT#1, "BOSSA” 

220 PSET C60, 703 SPRINT#!, "NOUA” 

230 RETURN 

1X4 



BLUE BOSSA 


10 

* <*s *s */ 

%%%%BLUE 

20 

f *, 

4 


30 

9 y 

4 

Kenny 

40 

* y 

4 


50 

4444 

*>, t>, <f, <f, Qy O. O, tfy y 

4>/#4444444 


BQSSa: 


Du rh 


' X* x X X X X X 

y 

y 

’ y y y y y y y y y y y y 

60 G0SU8 130 
70 S$ = " 1 255 r2 „ !í 

80 A$ = " 1 255s 3m 3500 0o 4g o 5g . f8e-8d4c2. „ 0 4b 
~4d.-2o5g4. f 8f lf 4. e~8d8c4o4b-2. „ a~4g2o5f 4 
. e*-le— 8e-4,d-8c8o4b~8a~2„ .9“4g™4f8b — 4f 8 a 
-4a-la~4g8b -4 „ a-4g8b -2a~Sg 1 , , ” 

90 PLAY S$ 

100 F0R Q“ 1 
110 GOTO 110 
120 DEFINT A-2 
130 2=1535 
140 SCREEN 3 
150 FOR A=1 TO 2 
160 C=C+77 ; IF 0 255 
170 UPOKE A, C i NEXT 
180 RETURN 


TO 2 i PLAY .A$:NEXT 


THEN C=0 



TEMA DE LA SEPTIMA SINFONIA, 
DE BEETHOVEN 


1 0 ’ 


20 ' P * 

38- ’7 Tema de la 7a Sinfonía J> 

40 * 7 * 

50 * J> Ludwsg Uan Beetho^en P 

60 " 7 J> 


70 * >M**J>****J>t*J> 

80 DEFINI A-2 

90 2=1535 :IF U)=2 THEN 2= 2*4 

100 R=INT CLÍ*CRNDC 11*71+11 

110 IF Uf= 2 THEN COLOR R,R+1:IF R+l>15 T 

HEN R+l=14 

120 SCREEN 3 

130 FOR A=1 TO 2 

140 C=C+lsIF 0255 THEN C=0 

150 UPOKE A, C :NEXT 

1 60 A$=’'t80s 3m27800o4a4a8a8a4a4a4a8a8a4a 
4a4a8b 8 o 5c 4c 4 c 4 c 8 c 8 c 4 r4 " 

170 B#= ,, t80s3m27800o4f4f8f*8e4e4e4e8e8f 4f 
4f 4f 8g 8a4a4e 4f 8g8a4r4 " 

180 C$=" t80s3m27800o4d4d8d8c+4c +4c+4c+8c 
+8d4d4d4d8d8c4c 404080 81404” 

190 Al$="t80s 3m27800o 5c 4c 8d 8e 4e4o 4b 4b 8o 5 
c +8d 4d4o4a4a8a8a4a4a4b8o 5 c +8d4 r4 " 

200 B1 $=" t80$3rr>27800o4a4a8a8g + 4g +4g4g8g8 
f +4f 4f 4f 8f 8e 4f 4e4e8e8d4r4 ” 

210 01$=" 1 80s 3m27800o4f 4f 8f 8e 4e4e4e8e8d4 


1X6 


d 4<j 4d 8d8c +4d 4o 3a.4a.8a.8o 4d4 r4 11 

220 A2$="t80s3m27800o4a.4a8&8a4&4a4a.8a8a4 

&4&4a.8b8o 5c 4c 4c 4c 8c 8c 2" 

230 B2$=" t80s3m37800o4f 4f 8f 8e4e4c 16f I6g4 
f 16e 16e8f8f 4f 4. f 169 1 6g+8a.8a.4g 16&1 6b -4a. 16 
g 16g8a8d.4" 

240 C2$- 1 80s.3m27800o 4d4d8d8c +4c +4o 3a.4&8 
a.8o 4d 4d 4d4d8d 8c 4c 4 c 4c 8c 8f 2“ 

250 A3$= l{ t80si2m27800o5c4c8d8e4e4o4b4b8o 5 
c+8d4d4o4a.4&8a.8&4e.4&4b8o5c+8d4r4 u 
260 B3$ = "t80s3nn37800o4a.4&8a.8g+4g4g8el6f + 
16g8d.l6g I6g8f>8f 4f 4f 8f 8e4f 4e I6f I6g4f 16e 1 
6d4 r4 " 

270 C3$ = " t80s3in27800o4f 4f 8f 8e4e4e4o3&8a.8 
o 4d4d4d4d8d8c +4d4o 3at.4a.8a8o 4d4 r4 ! * 

280 PLAY A$,B$,C$ 

230 FOR A=1 TO 2:PLAY Al$. 81$, Cl$ -NEXT 8 
300 PLAY A2$,B2$/C2$ 

310 FOR B=1 TO 2 : PLAY 03$ , B3$ » C3$ -NEXT B 


320 Z$= INPUT $ C 1 D 


TERCETO DE LA FLAUTA MAGICA, 
DE W. A.MOZART 


1 8 ’ 

20 ’ ^ ^ 

30 ^ Terceto de "La flauta mág ica ,: «5 

40 * 4 ^ 

50 UL ñ. flozart «D 

60 ’ <& ^ 

70 ' ^ 

80 GOSUB 230 

90 A$ = " v!5 o4r2» g4g4. b8o5c8. o4b 16 a 8 . 

o5d 16c¿4o4b4j-'4p5c4c4o4a8o5d8d8c8c8o4b8b4o 
5c4r4c4c4, o4a8b8. a 16b 8. o 5c 16o4b4a4r4" 

100 B$~ "s Im28000o4r2. e4e4. f 8g8. g 16f* 8. f 16 
e4d4r4g4a4, a8g4f 4f 4e4r4e4f +4. f +8g8. f + 16g 
8 . a 1 6g 4f +4 r4 11 

110 C$="s Im28000o4r2. C4c4.d8e8.cl6f8.dl6 
g4o3g4V'4o4ej4f4. f 8e4d4d4c4r4o3a4o4d4. d8d8 
. d 16d8. d 16d4d4r4‘‘ 

120 Al$="s Im30000o5d4d8c8e8c8c8o4b8o5c8o 
4a8a4g4r4g4g4. a8b8o5c8d8c8c8o 4b 8b 4. o 5c 1 6 
o 4b 1 6a8g8g\4o 5cfeo 4gí8g8f 8f 8e8g8„ e 16d4'> 
X130 Bl$=''$ 1 m28000o 4b 4b8a8o 5c8o 4a8a8g8a8f 
+8f +4g4r4g4g4. 18ggggggfl4f.18fffl4e.18ee 
dd ce . c 1 6o 3b 4 " 

^ 1 40 C 1 $ = " s 1 m 280 00o 4d4e4e4d4. c8c4o 3b 4 r4g 4. 
94. f +8f 8e8f 8e8e8d8d4. d8c8o3b8c 4* c8o 3b 4o 4 
c4o3g4g4r4 H ^ 

150 A2$= ,, s 1 m 30000 o 4g4g4.b8o5c8.o4b !6a8. o 


118 


5dl6c4o4b4r4o5c4o 4cxS- b 1 8o oc8 . d 16c 4o 4 b 4o 5 
f 2- d4e8. o4b 16o 5c 8* d 1 6c 4o 4b 4o 5c 2 n4" 

160 B2$-‘”s Im28000o4d4e4. fSgB.e 16f8, f 16e4 
d4 r4g 4f 8- f 1 6g8 . <x 1 6g 4g 4g 2 . g 4g8 „ f 1 6e 8 - f 1 6e 
4d4e 2 r4 

170 C2$-’'s3m28000o3b4o4c4. d8e8, c 16f8-dl6 
g2r4e4f8. d I6e8. f 16e4d4o3b2. o4f4e8, d I6c8- 
d.l6g4o3g4o-3c2r4 >i : , 

180 PLAV't 150 ![ , :, tl50% 11 1 150 !i 
130 PLAV A$,B$,C$ 

200 PLAY A1$,B1$,C1$ 

218 PLAV A2$„B2$,C2$ 

220 GOTO 220 

230 DEFINI A-Z 

240 Z-1535 

250 SCREEN 3 

260 FOR A~1 TO Z 

270 C=C+34 s IF 0 255 THEN C=0 

280 UPOKE A,C:NEXT 

230 RETURN 



SCRAPPLE FROM THE APPLE & DONNA LEE 


<f> ^ <£• <£> <í* <t <f» ^ (f' <£» <f* (t* ^ <fv 

>p* vp v j~» \p vp Cp ■ jS ^p Jp ip \p xp xp xp \p «p \p -qs ■'I > 


10 ’ 

20 ’$ 

30 *$ 

40 ’$ 

50 *$ 

60 *$ 

20 ’$ 

80 ’ $ 

0 0 * ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

1000 DEFINT A-Z 

1010 Z=1 535 

1020 SCREEN 3 

1030 FOR A=1 TO 2 


Se ra.p pie f rom the Apple 
&Donna. Lee 
Ch drl i e Parke r 


1040 C-C+32 % IF 0 255 THEN C=--0 
1050 UPOKE A, C :NEXT 
1060 PLAY "vi 5" 

1020 A$ = "t200o518r8d+egf +edo4bo5ea.r4r814 
gl8f+g.o61 16do519bge I8f +o4bo5eo4b-r4. 14o 
5f +g 1 8f + a . 116f + 19edel4e r8o 6 1 8do 5 1 4b r8o 6e 
+o 5 1 8b 19f+gg + " 

1080 B$= u t20014Ar818f +gf +f f +¿xf +gdr2" 

1090 C$="t20014Ar818f+gf +f f +do4ao5c+d r 2" 


1100 PLAY A$ 
1110 PLAY B$ 
1120 PLAY A$ 
1130 PLAY Ct 
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i 140 Uí$- " 1 230o6 r4 „ 14ell6del8dd-co5b“Agf+ 

o4Ao5cdl9e-fe-18dco4bo5cfAedr4„14d~o4;8b 

o5co4f +gb-o5df ao 6c o 5b ~df aa-d-c o 4b -ao 5c eg 
14fl8cde“gb™o6dd -o5ar4 12o 6c 1 8c o 5b -ag o 6c o 

5b-r4o6e-d-co5b-AAb-bo6co5b-Agf +a.o6cd I9e 

-f e-18dco5b AA-f +gf o4ao5c 19ee~dc + ,; 

1150 2$-“ r218o6co5b-df agdf egb~g I9o6c+d+c 
+ 18c o 5b 1 4a r4o 61 §e fe 1 8dd-co5b ~ag f +o ^ao 5c d 
1 9e -f e - 18dc o 4b o 5d f aed r2e d c +d é f +g f +e d 1 3b - 
o6co5b-18A9 1 9f 9 f ec+14d r4r2r8 !I 
1160 Y$~ N 18o 5e ag +AA+ba+bo6cd-cd-co5bb-A9 
f 1 16gf 18 ef gf edo4g+bo5df g+o6edd-co5b-agf + 
e-dco4b-o5df agf ©d!4f r4. " 

1170 PLAYUJ$ :PLAY2$ ;PLAY Yt 
1180 2$=INPUT$C1D 


THE ENTERTAINER 


10 ' 

20 * @ ¿ 


SCOTT JOPLIN 
THE ENTERTAINER 


30 

40 * ü 
50 

60 ’ @ 

\*£ 

30 Adaptación HSX F.J. Guerrero @ 

80 ’ @ g¡ 

100 GQSUB 550 

110 CLEAR 5000 

120 Z$^"t 130s3ml000018o4a+a/' 

130 A$ = ” o4b8o5g4o4b8o594o4b8 

o 5g 2. r8g8a+8a+8b8g8a8b4f +8a4g 2g8r8o4a8a + 
8 

140 B^^ 1 ' o3r4d4r4f4 r4e 4 r 4 d 4 r4 

d4r4f+r4f4f8r4. " 

150 C$=" o2g4r4o3d4r4c4r4o2b4r4o3d r 

4d r4o 2g r2o 3d " 

160 Al$~”o4b8o5g4o4b8o5g4o4b8o5c2. r8e8d8 
c +8e 8g8b 4a8g8e8a2a8 r8o 4a8a+8 !I 
120 Bl$="o3r4b4 r4d4 r4c r4d 4 r4a4 r4c + r4c 4c a 
r4" 


180 Cl£-''o2g4r4o3d4r4c4r4o2b4b ~4a4r4o3a4 
r4o4d4o3d4e4f +4" 

190 A2$= "o 4b8o 5g4o4b8o5g4o 4b 8o 5g8g 2r8g8a 
8a+8b8g8a8b4f 4-8a4g2g8r8g8a8 u 


122 



200 B2$~ H o 3 r4b 4 r4d4 r4c 4 r4c!4 r4b 4 r4o4r4b4b 
8r4. " 

210 C2$-'"o3g4r4d4r4c4r4o2b4r4o3d4r4d4r4o 
2g 4r2 , '* 

220 A3$ = "o518bga.l4b 1 8g a.gb g al 4b 18gagbgal 4 
b f -*-8a.4g 2g 8r4. 

230 83 ^ = ''o3r4d4 r4b 4r4g4 r4c 4 r4b 4 r4c4 r4d4b 
8r4 . " 

240 C3$="o2g4r4f4r4e4r4e-4r4d4r4d4r4g4d4 
o Ig8r4, " 

250 A4$- ,i o5d4e8d4o4b8o5c8c+8d4e8d4. g4e8f 

*t-8g8a.8b 8a8g8e.8g 2g8r8o 4b 8o 5c 8 

260 B40 = ,[ o3r4g4r8g8á8a+8b4g4r4d r4e4r4g-4 

r818bcdedba u 

220 C4$="o2g4r4o3d4r4g4r4d4r4c4r4c4r4o2b 
4 r4o 3d 4 r4 " 

280 A5$=*'o5d4e8d4o 4b8o5c8c +8d4e8d4. e4f +8 
f + 4 f +4e8c+8o 4a.8o5d2d8r8o4b8o5c8 r ' 

290 B 5 $=-- ,, o 3 g 4 r 898 <x 8 &+ 8 b 4 d 4 r 4 g 4 r 4 f +4r4a4f 
+4r2. " 

300 C5$-- í! o2g r4o3d r4g 4 r4o 2b 4b ~4&4 r4&4 r4o 3 
d 4c -4o 2b 4a.4" 

310 A8$~' !! o5d4e8d4o4b8o5c8c+8d4e8d4. g4e8f 
+8g8a.8b8a.8g8e.8g 2g8r8d4 !1 

320 ' B6$ = "o3r4d4r8g8a.8a.+8b4g4r4d4r4c4r4g- 
4 r4d 4 r4g -4 " 

330 C6^ :: = ! 'o2g4r4o3d4r4g4r4d4r4c4r4c4r4o2b 
4 r4g 4 d4 

340 p7$="o5d4e8g4e8g8e8d8g8b8o6d4o5b8g8d 
8e4g4b8aL.4g2. r8o 4a.8e-+8 !! 

350 B7$ = , 'o3e4c4b-4b~4g4b4d4b4c +4e4f +4d4b 
4d4d8r4. " 

360 C7$= ,, o2c4o3c4c+4c+4d4d4o2d4d4o3&4e.4o 
2d4d4o3g4d4o2g8r4, " 

370 PLAY“s3m 10000“ , "$3m30000 u , u vl3" 

380 PLAY “ t 1 30 " , “ t 1 30 “ , “ t 1 30 “ 

390 PLAY 2$ 

400 PLAY A$, B$> C$ 

410 PLAY. A1$,B1$,C1$ 

420 PLAY "A2$,B2$»C2$ 

430 PLAY A3$,B3$,C3$ 

440 * 

450 PLAY A4$;B4$,C4$ 



460 PLAY A5$,B5$,C5$ 

470 PLAY A6$,B6$,C6$ 

480 PLAY A7$,B7$,C7$ 

490 ’ 

500 PLAY A$»B$,C$ 

510 PLAY Al $,81 $,C1$ 

520 PLAY A2$,B2$,C2$ 

530 PLAY A3$,B3$,C3$ 

540 GOTO 540 

550 DEFINI 1 A~Z 

560 2=1 535 

570 SCREEN 3 

580 FOR A~ 1 TO 2 

590 C-C+57 : IF 0 255 THEN C=0 

600 UPOKE A, C : NEXT 

610 RETURN 
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TECLEE UN NUMERO 


20 CLS s INPUT" TECLEE UN NUílERO i" 1F 
30 FOR 1=1 TO F :Y=RNDC 1 3 sNEXT 
40 SCREEN 1 sCOLOR 10,l,lsKEY OFF’CLS 
50 X=I NT C RNDC 13*16+53 sPLAY" L.32N70" 

60 PRINT"NUMERO INICIAL s " ;X 

70 PRINT :PRINT’‘TECLEE 5 OPERACIONES 1 ( 

80 PRINT :PRINT !l DE LA FORMA +5, /2, *4. „ . 

90 F=X 

100 DIM R$C5 3 

120 LOCATE0, 9 s INPUT"TU OPERAC I ON : " í R$ C 1 3 
130 LOC ATEIS, 9 SPRINT' 1 

14 r> A=ASCCLEFT$CR$C I 3 , 1 3 3~41 

150 IF A<=0 OR A=3 OR A=5 OR A>6THEN 12 

0 _ . , 

160 IF A> 3 THEN A=CA/23 + l 

170 ON A GOSUB 1000,2000,3000,4000 

180 L0CATE14 , 1 1 SPRINT" " 

190 LOCATE0» 11 SPRINT "NUMERO OBTENIDOS- íF 


200 NEXT I 


210 PRINT SPRINT "OPERAC IONES - " *,R^C43 ; 
r$ c 1 3 ; " " ;r$c53;" ";r$C33;” h ;r$c23 
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220 PRINT SPRINT" ANIDO !!!... " 

230 PLAYTCCCDEDCEODC' 1 :END 

'1000 F=F*UALCRIGHT$CR$C 13» LENCR$C 133-133 

1010 RETURN 

2000 F=F+UALCRIGHT$CR$C I 3 , LENCR$C 133-133 
2010 RETURN 

3000 F=F~UALCRIGHT$CR$C J 3 „ LENCR$t 133-133 
3010 RETURN 

4000 F=F/UALCRIGHT$CR$C I 3 , LENCR$C 133-133 
4010 RETURN 


CALENDARIO PERPETUO 


1 ’ Ca.lenda.r i o Perpétuo 

10 SCREEN0 :COLOR 15,4:KEY OFF=CLS 

20 I NPÜT " D I A . ; ; / / J 

30 IF J— 0 THEN END 

40 PR I NT : I NPUT 11 MES - -. ¿ . - i : i ‘ 11 5 M 

50 PRINT :INPUT"ANlO =" 5ñ 

60 B=A 

70 S^INT t A/ 1003 -I NT C A/4003 
80 IF A<=1582 THEN S=2 

30 n$ = " ENERFEBRílARZABRIUAY JUNI JUL IAGÜSS 
EPT OCTUNOU I DICI" 

180 n$=niD$cn$, 4*n-3> 43 

110 IF n<3 THEN N=ri +12 :A=A-1 

120 S=J-1 + INTC13*CM+1 1/5I + INTC5.^/43~S 

130 S=S-7^INTCS/73 

140 J$=”DOriING0 LUNES HARTES Í1IERC 
OLESJUEUES UIERNES SABADO 
150 J$=niD$C J$, 3*S+1 , 91 

160 LOCATE0, 15 SPRINT" EL" ; J i ” " ;U# ;B ; "FUE 
UN " ; J$ :PLAY"CGE" 

170 PRINT SPRINT :PRINT"PULSE UNA TECLA" :R 
$=I NPUT $ ( 1 D 
180 RUN 


MODIFICACION TABLA DE COLORES SCREEN 1 


10 PRINT :PRINT :PRINT"Puedes convertir el 
modo de texto 1" 

20 PR I NT : PR I NT " e n multicolor utlilizan 

do este prog rama" 

30 PRINT :PRINT ,l Ejecu talo „ cuando encue 

ntres la combinación" 

40 PRINT :PRINT ,, de tu gusto, teclea ser 
een 0 y después ? a 11 

50 PRINT :PRINT"E1 valor de a, sera el co 
nt en i do " 


60 PRINT :PRINT"de la dirección &HF3BF, q 
ue es la que" 

20 PRINT :PRINT"has modificado hasta obte 
ner el resultado deseado" 


80 PRINT :PRINT :PRINT n PULSP UNA TEC 

LP" :2$=INPUT$t 1 3 

100 ’screen 1 multicolor 

110 SCREEN i:D=C+i:IF 015 THEN C=0 

120 A+l:IF P>255 THEN A=0 

130 POKE&HF38F.O :FOR 0= 1 TO 300=COLOR,C 

-NEXT íPRINTA :PRINT" ABCDEFGHI JKLnNÜPQRSTU 

UUXYZ’ 1 2PRINT"abcdef gh ijklmnopq rstuvuxyz " 

:FOR U= 1 TO 500 : NEXT 

140 PRINT" 123456289050^0% fT en* O— ±^ v r M :PR 

1 N - T,, ^r n V fOÉ9¿- HP HH1 II ^ <4 

iHitsM” : F0R 1 TO 500:NEXT 
150 SOTO 110 


128 


RECTANGULOS EN 3-D 


20 ’ -—-RECTANGULOS EN 3- D — 

100 SCREEN 2 ¡COLOR ,1,8 

110 FX^RNDt 1 3*255 :FY=RNDC 1 3*191 

120 Dlfl PXC33 , PYC33 , GXC33 , GYC33 

130 PX C 0 3 =RND C 1 3 X C . 9X255 3 :PYC03=RNDC 1 3*C 

. 9X255 3 

140 B=RNDC C 1 3X255-PXC03 3/2+50 
150 H=RNDC C 1 3X191-PYC03 3/2+3 8 
160 QI-RNDCC13X.23+.2 

170 PXC 1 3=PXC03 + B“.PYC 1 3=PYC03 :PXC23=PXC 1 
3 :PY C 2 3 =PY C03+H :PXC33 - PXC03 :PYC33=PYC23 

180 FOR 1= O TO 3 : QX C I 3 -PX C I 3 X C 1 — Q ! 3 +FX* 
Q 

190 QY C I 3=PYC I 3XC 1-Q ! 3+FYXG ! 

200 NEXT 

210 FOR 1=0 TO 3 í L INE COXC I 3 , QYC I 3 3-CQXC 
C 1 + 1 3riOD43 , QYC C 1+1 3NQD43 3 , 15 :NEXT 
220 FOR 1=0 TO 3 5L I NE CPX C I 3 , PY C I 3 3 ~ CGXC I 
3 , QY C I 3 3 , 11 ¡NEXT 

230 FOR 1=0 TO 3 ¡LINE CPXC I 3 , PYC I 3 3-CPXC 
C 1 + 1 3nOD4 3 , PYC C 1 + 1 3N004 3 3 , 12 :NEXT 
240 GOTO130 


20 > -------RECTANGULOS EN 

30 * aaaa^con EFECTO DE DESTELLCT^^ — 

100 SCREEN 2 ’ COLOR ,1,8 

110 FX=RNDt 1 3X255 :FY=RNDt 13X191 

120 Din PXC33 »PYÍ33»QXC33»GYt33 

130 PXC03=RNDC13XC. 3X2553 :PYC03=RNDC 1 3XC 

. 9X2553 

140 B-RNDC C 1 3X255-PXC03 3^2+50 
150 H=RND C C 1 3X1 9 1-PV C 03 D-/2+38 
160 Q ! -RNDC C13X.23 + .2 

170 PXC 1 3=PXC03+B:PYC 1 3=PYC03 ;PXC23=PXC 1 
3 :PV C 2 3 = PY C 03-+-H «PX C 33 - PXC0 3 :PYC33=PYC23 

180 FOR 1= O TO 3 °QXt I 3=PXC I 3XC 1-Q i 3+FXX 
Q 

190 QVC I 3=PVCI 3XC1-Q ! 3 +FVXQ ! +Q ! vi 0 
200 NEXT 

210 FOR 1=0 TO 3 : L INE CQXC I 3 , QVC 13 3 -CQXC 
C I-f 1 3Í10D4 3 , QVC C 1 + 1300043 3, 15 :NEXT 
220 FOR 1=0 TO 3 : L I NE C P.X C I 3 , PV C I 3 3 - C OX C I 
3 , QYC I 3 3 , 1 1 : NEXT 

230 FOR 1=0 TO 3 2 L I NE C PX C I 3 , PV C I 3 3 - CPXC 
C 1 + 1 3MOD43 , PVC C 1 + 1 3NOD43 3 , 1 2 -NEXT 
240 GOTO170 
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JUEGO DE CARACTERES ALFABETICOS 
EN TODOS LOS MODOS 


200 COLOR 1 , 14, 10 
210 S-0 sSCREEN 0 
220 GOSUB 330 
230 S= 1 - SCREEN 1 
240 GOSUB 330 
250 OREN "GRP • " AS#1 
260 COLOR 1, 14,7 
270 S-2 í SCREEN 2 
280 GOSUB 340 
230 COLOR 1, 14, 3 
300 S=3 «SCREEN 3 
310 GOSUB 340 
320 END 

330 FOR I ~65 TO 30:LOCATE 5, 5 ;PR INT"SCN“ 
S iCHR$C 1 3 ;CHR$C 1 + 323 sGOSUB 350 =CLS sNEXT ° 
RETURN 

340 FOR 1-65 TO 30 «PRESET C 10, 503 «PRINT#1 
, H SCN"S;CHR$C13 ?CHR$C 1 + 32 3 : GOSUB 350 5 CLS 
:NEXT sRETURN 

350 FOR D— 1 TO 500-NEXT -RETURN 



JUEGO MATEMATICO (SUMA DE LOS 
ELEMENTOS DE LAS DIAGONALES) 


10 DIMA<5,5> 

20 INPUTM 
30 IFM=0TH£N250 
40 LETD=1 
50 F0RI=1 TON 
60 FÜRJ- 1 TOM 
70 RE ADA < I , J) 

80 PRINT A < I , J) ; 

90 NEXTJ 
100 PRINT 

110 LETD=D+A<I,I>+A(I,M+1-I) 

120 NEXTI 
130 PRINT 

140 IFM/2=INT <ñ/2) THEN1 70 
150 LETN=INT <M/2> +1 
160 LETD=D-A <N,N) 

170 PRINT" suma de elementos de las 
diagonales^' ; D 
180 PRINT 
190 PRINT 
200 RESTORE 
210 GOTO20 

220 DATA 1 0 *11*12,13,14,15,16,17,18,19 
230 DATA20, 21 ,22,23,24,25,26,27,28,29 
240 DATA30, 31 ,32,33,34 
250 END 
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MAS GRANDE MAS PEQUEÑO 


1 0 REM***MAS GRANDE / HAS PEQUEÑO*** 

1 5 CLS 

16 COLOR 1,12 

20 PRINT ” Este sencillo juego, se ínspi 
ra en el celebre MASTER—MIND solo que co 
plicado por la. escasez de pistas, el jueg 

0 nos pide un numero de cifras de 1 a 2 
qué compondrán el numero a adivinar” 

30 PRINT "Para que acertemos el numero e. 

1 ordenador nos da dos pistas. La primer 
a es el numero de cifras mayores que en 
el numero a adivinar, y la segunda el nu 
mero de cifras menores." 

40 PR I NT " eje mp lo 2' si el nu me ro a ad i v 
inar es el 2031, y nosotros escribimos 31 
40,1a maquina nos indica 3 mas grandes e 
1 3 el 1 y el 4, y uno mas peque no, el 0. 

el juego puede ser muy dificil" 

50 PRINT :PRINT" >>>>>PULSA UNA TECLA 

<<<<<" 

60 Z$=INPUT$tl3 

20 CLS * INPUT" TECLEE UN NUMERO : M ;F 
80 POR 1 = 1 TQ F : Y-RND C 1 3 :NEXT 
90 CLS : I NPUT" NUMERO DE CIFRAS:" íC 
100 IF 08 THEN 90 

110 SCREEN0 :COL.OR 15,12:KEY OFF:CLS 
120 E=1 :F=1 
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130 X$=-STR$C INTCRNOC 13 1 0^ CC-E 3 3 3 

140 X$=RI6HT$CX$, LENCX$3-1 3 
150 LOCATE0 , 3 »PR I NT " PRUEBA NO- • NRO PRUE8 
A > < 

160 LOCATE0,4“FOR J=1 Tü 38;PRINT CHR$C2 
23 3 ; :NEXT 

170 LOCATE0, F + 4 ’PR INTTABC43 ;E íTABt 103 : IN 
PUT P$ 

180 IF P$=X$ THEN 270 

130 A-0 i B-‘0 

200 FOR 1=1 T O C 

210 if nio^cp$ ? i , n>niü$tx$, i , 1 3 then a~ 

A 'i* 1 

220 IF niD$CP$, I , 1 3 <NIÜ$CX$, I » 1 j THEN B~ 
B+l 

230 NEXT I 

240 L0CATE26» F + 4 SPRINT A ;TABC31 3 ;3 
250 E=E+1 í F=F-*- i ’ í F F-l 8 THEN F= 1 
260 GOTO 170 

270 PR I NT “ PR I NT s ‘ HAS ENCONTRADO :í ;X$; ! 'E 
N ” ;E; ! -' PRUEBAS 11 'PLAY :, Ceg : ' 

280 PRIN.T :PRINT !, OTRA PARTIDA CS/N3 1 ' :R$=I 
NPUT $ C 1 3 

230 IF R$ = " S " OR 11 s !l 


THEN 90 


POKER 


t0 CLS : PRINT : PRINT :PRINT"En este poker J 
uegas contra, tu Í1SX" 

20 PR I NT : PR I NT " T ras el reparto de cartas 
puedes d e s - 11 : PRINT " c art art e una uez.' 1 
30 PRINT: PRINT" Después la máquina te mo 
st rara su" 

40 PRINT :PRINT" Jugada y tu mismo ue rás e 
1 resultado. " :PRINTTAE3 10"Suerte ,¡ 

50 PRINT :PRINT :PRINT :PRINT"PULSA UNA TEC 
LA" :Z$ = INPUT$C 1 3 

60 CLS : INPUT" i nt roduce un numero :F 
70 FORI-1TOF :Y = RNDC 1 3 :NEXT 
80 DIMLC163 

30 U&=" 7 8 9 10J Q K A " 

100 C^C03="^" 

110 C$C13 = "$'‘ 

120 C$C23= M f" 

130 C$C33 = ,l £ H 

140 SCREEN0 :C0L0R3» 15 :KEYOFF :CLS 

150 F0RI^1T016 

160 LCI3=INTCRNDC13*323 

170 I FI -1 THEN21 0 

180 F OR J= 1 TO 1 — 1 

130 I FL C I 3 -L C J 3 THEN 160 

200 NEXTJ 

210 NEXTI 


220 K=0.-P=8 

230 LOCATE0, 12 :PRINT”cart as re chas adds " 
240 GOSUB330 

250 IFR$=’ l 0 ,, THENPLAY ,, cde " :END 

260 F0RI=1T0LENCR$3 

270 LCUALCMIDSCR*. I, 1333=LCI+53 

280 NEXTI 

290 CLS 

300 P=1 

310 GOSUB330 

320 K=K+ 1 0 

330 POR I = 1 T05 

340 J=INTCLC I+K3/83 

350 F=2*CLCI+K3--8XlNTCLCI+i<3/83 3 + 1 

360 R$= ; nlD$CU$„F,23 

370 LÜCATE7XI-4» K sPRINTI : PLAV " 1 64n 70 " 

380 L0CATE7XI-5, K+2 :PRINTR$ ; !i : " :C$C J3 

390 L0CATE7XI-5, K+3 SPRINT" 11 

400 NEXTI 

410 IFP=lTHENP-0 íRETURN 

420 IFK=:10THENPRINT :PRINT l¡ P u lea una tecl 
a ,¡ ;R$=INPUT$C 1 3 “GOTO140 
430 LÜCATE18, 12»INPUTR$ 

440 RETURN 
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BREAKOUT 


.5 REíl XXXXXXXXXXXXXXXXXXXXX 
15 REM X MSX-EXTRA X 

25 REP1 X BREAKOUT X 

35 REM X 1385 X 

45 REM X C c 3 TOMAS SOLE X 
55 REM XXXXXXXXXXXXXXXXXXXXX 
65 OREN " GRP : t: AS #-l 
25 U=5 
85 LF=6 
95 BR=0 
105 SCR=0 
115 SCREEN 2,0 
125 COLOR 15,1,2 
135 CLS 

145 GOSUB 1065 
155 GOSUB 855 
165 GOSUB 355 
125 BX=120 
185 X=100 
135 Y=30 
205 HU=4 
215 UU=4 

225 REM BUCLE PRINCIPAL 

235 T — ST I CK C 0 3 * I F TO0 THEN GOSUB 405 


24 5 HU=HU*2*C.5+CX<=18 OR X>=233:n 
255 IF Y <-8 THEN UU=-UU 

265 IF 176-Y AND X+4>~BX AND X<-BX+12 TH 

EN GOSUB 355 

225 IF Y> 184 THEN 685 

285 Y — Y +UU 

235 X=X+HÜ 

305 RUT SPRITE 0, CX, Y3 , 15. 0 

315 C^POINT C X + 3 , Y + 3 3 

325 IF 0-2 THEN GOSUB 425 

335 GOTO 225 

345 REH BATE 

355 UU--UU 

365 IF ABSCHUD-4 AND RNÜC13<.5 THEN HU=S 
GNCHUDX2 

325 IF ABS C HU 3=2 AND RNDCIDC.S THEN HU=S 

GNCHU:X4 

385 RETURN 

335 RED MOUiniENTO DE BATE 

405 8X=BX+6XC C T=2 I - C T=3 3 3 

415 IF BX <= 1 4 THEN BX^'14 

425 IF BX> =235 THEN BX=235 

435 PUT SPRITE 1 , CBX. 1813,11,1 

445 PUT SPRITE 2 , C BX+8 „ 1 8 1 3 , 1 1 „ 1 

455 RETURN 

465 REN DESTRUCCION DE LADRILLOS 

425 UU-'—UU 

485 SCR-SCR+C 

435 BR-BR+l 

505 BEEP 

515 TY=I NT C C Y- 3 3 /8 1 X8+6 
525 TX= I NT CCX-12D/103X10+14 
535 LINE CTX, TY3-STEP C8, 63,-1, 8F 
545 DRAUi " BN80 » 0 l! 

555 LINE -STEP C48,83,11 S BF 
565 DRAUJ ,! Bn80,0’ ; 

525 PRINTftl.SCR 

585 IF 8R-LFX22 THEN GOSUB 615 
535 RETURN 

605 RED LIAS LADRILLOS 
615 LF=LF +■ 1 
625 GOSUB 955 
635 X=100!Y=80 
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645 

655 

665 

675 

685 

695 

705 

715 

725 

735 

745 

755 

765 

775 

785 

795 

805 

815 

825 

835 

845 

855 

865 

875 

885 

895 

905 

915 

925 

935 

945 

955 

965 


HU=4 i UU-4 

RUT SPRITE 0, C X , Y 3 , 11,0 
RETURN 

REM PERDIDA DE UNA UIDA 
DRAU " Bfl 1 79 , 0 “ 

LINE — STEP C 66 ,83,11» BF 
DRAU "811179» 0“ 

COLOR 1 
U=U~1 

PR I NT # 1 , "OIDAS " ?U 
BX-120 

PUT SPRITE 1, CBX, 1813, 11 » 1 
PUT SPRITE 2, CBX+8, 181 3 , 11 . 1 
IF UO0 THEN 175 
DRALí " B(1 1 80 » 100" 

COLOR 13 

PR I NT# 1 * "FIN DEL JUEGO" 

DRAU "BN100, 110" 

PRINT#1 , "PULSE BARRA ESPADO 
Tp INKEY$=" " THEN RUN ELSE 

rem fuera del nuRO 

LINE C0.03-STEPC18, 1313.1 
LINE C 1 4 » 0 3 -STEP C236,8D, 
LINE C248, 03-C255, 191 3 , 1 1 
DRAU "BN 179,0" 

COLOR 1 

PRINT#1 , "OIDAS" SU 
DRAU " BN29 , 0 " 

PRINT#1, "PUNTOS" sSCR 
RETURN 

RED LADRILLOS 
RESTORE 965 


1 , BF 
1 1 , BF 
, BF 


LF 


22 


DATA 7,5,4 
4,5,7, 14, 15 
375 FOR A-1TO 
385 READ C 
395 FOR B-l TO 
1005 X=B*10+14 
1015 Y=A*8+6 
1025 LINE CX,Y3 
1035 NEXT B, A 
1045 RETURN 
1055 REÍ1 SPRITE BOLA 


12 , 2 , 3 , 11 » 10 , 9 , 8 , 6 , 13 , 


STEPC8, 61 , C, Br~ 
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1065 RESTORE 1 135 
1075 FOR 1=1 TO 8 
1085 READ A$ 

1035 S£=S$+CHR$ CUAL C A$ 3 D 
1105 NEXT 

1115 SPRÍTES C0D=S$ 

1125 R=RHDC-TiriEO 

1135 DATA 0,0,24,60,60,24,0,0 

1145 REH SPRITE BATE 

1 155 SPRITE$Í 1 } =CHR$ C 255 3 +CHR$ C255 3 +S TR I 
NG^C0, CHR$C0D 0 
1165 RETURN 
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APOCALYPSE NOW 


ig * ^^YYYYAPOCALYPSE NOW #***£* 

20 * Y * 

30 ’* F.J. GUERRERO&J. C. GONZALEZ* 

40 ' Y * 

50 * x**************************** 

60 ' S<8*&PANTALLA Y UAR I ABLES8<8<S< 

70 FC=4 :SC=12:WQ=5 sQQ=5 :KEY OFF 
80 OPEN''GRP:"AS#l 
30 COLOR 15, 7, 1 

100 SCREEN2, 1 :GOSUB950 :COLOR 15,1, 

1 

110 PRESE! C 1 0, 101 :PRINT#1, "APOCALY 
PSE NOW " :PRINT#1 , "Este juego esta 
pensado para 2 jugadores" 

120 PRINT#1 , "uno con teclado y otr 
o con j o y s t i c k . " “ PR I NT# 1 , " E 1 jugad 
or del teclado mueve" 

130 PRINT#1, "con las teclas de cu 
rso n y dispa ra' 1 

140 PRINT#!., "con la barra de espa 
c i os . " 

150 PRESE! C 1 10, 1603 SPRINT#!, "a" 

160 PRESE! C 1 10, 1721 :PRINT#1 , "1" 

170 FOR Q=1 TO 255SREADDASLINECQ-1. 
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E3-CQ,DA3, 1 ° E=DA : NEXT Q:RRESETC60, 
90j :-PRINT#l , "COHIENZA EL ATAQUE" :P 
AINTC 10, 103 , 1 5CLOSE1 
180 A2£=15 :B2%=182 :A1%=181 :B1%=183 
íFH=4 - SH=4 

130 ON SPRITE GOSUB 1500 

200 ' Sí&LECTURA DE JOYSTICK Y TECLA 
DO&&< 

210 SPRITE ON * T2=3 «GOSUB 1800 
220 T 1 ~ST I CK CIO- T2-STI CK C03 
230 ÍF T 1 = 1 THEN UÍZ^U1Z+1 
240 IF T 1 ~2 THEN U1 Z=V1 3+ 1 :H1 *=H1* 
+ 1 

250 IF Tl=3 THEN H1*=H1S+1 
260 IF Ti =4 THEN 
+ 1 

220 IF T 1 =5 THEN U1*=U1*-1 
280 IF Tl=6 THEN U 1 Z--U1 %- 1 : f-íl Z~Hl % 
-1 

230 IF T 1 =7 THEN H1*=H12~! 

300 IF TI =8 THEN U1^=U1%+1 :H1^~H1 % 
-1 

310 IF T2= 1 THEN U2%~U2%+1 

320 IF T2-2 THEN U2Z-U2Z+1 sH2*=H2fc 

•t* 1 

330 IF T2=3 THEN H2Z~-H2%+1 

340 IF T2=4 THEN U22=U2%--1 :H2*=H2* 

+ 1 

350 IF T2=5 THEN U2Z=U2Z~l 

360 IF T2-6 THEN \)2%-\)2%~\ 'M2%~V\2% 

~l 

370 IF T 2=7 THEN H2$=H2S-1 

380 IF T2=8 THEN U2%=U2%+1 l\\2%-W2% 

-1 

390 IF STR I G C 1 3 =- 1 AND FH>0 THEN B 
1 = 1 :F1=A1£:F2=B1%+9:G1=0:YY=1 :fh^F 
H- 1 : GOSUB 1760 

400 IF STRIGC03=-1 AND SH>0 THEN B 
2=1 :F3=A2%:F4=B2%+9:Q2=0:XX=1 :SH=S 
H-l i GOSUB 1760 

410 ’&&&&< DISPARO DE MISIL S&&& 

420 IF FH=0 THEN FC=15 
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430 IF SH=0 THEN SC=15 
440 A1%=A1%tCH1%/23 : B 1 Z=B 1 %+ C U1 % 3 
450 A2%=A2% + CH.2%/2 3 :B2S=82*+f.U2SD 
460 IF B1--1 AND Sl-0 THEN 111=-— 9: B1 
~0 

470 IF B2=l AND S2=2 THEN Í12 = ~9 :B2 
=0 

480 IF Bl = l AND Sl = l THEN IH=+9:B1 
— 0 

490 IF 82=1 AND 82^3 THEN í12=-t-9-B2 
=0 

500 IF T1=0 THEN G0SU8 1880 
510 IF T2=0 THEN GOSÜB 1900 
520 IF F1+GK0 ÜR F1+G1>255 THEN Y 
Y=0 : H 1 =0 

530 IF F3+G2 <0 OR F3+G2>255 THEN X 


X-Q ■ H2=0 

540 G1=G1+M1 :G2=62*t12 

550 IF Y Y~ 1 THEN RUT SPRITE5, CF1+G 

1 , F23 , 15 i IF POINTCF1 +G1 , F2+33 =7 TH 
EN YY=0 sGOTO 570 

560 IF YY=0 THEN RUT SPR I TES , C~20, 

570 IF XX=1 THEN RUT SPR I TE6 , CF3+G 

2, F43 , 15 : IF P0INTCF3+G2, F4 + o3=7 TH 
EN XX=0 -GOTO 600 

S80 * 

590 IF XX=0 THEN PUT SPRITE6, C-12, 

600* 1 í F^H22 <0 THEN S2=2:PUT SPRITE3 

610 IF H1X<0 THEN S1=0 ; PUT SPRITE1 

62¡ 3 iHhU> 0 THEN Sl=l:PUT SPRITE0 

630 3 lHH2X>0 THEN S2=3:PUT SPRITE2 

640 2 PUT 2 1pRITE Sl.Cfll*.Bl*J,FCsPUT 
SPRITE S2, CA2%, B2X3 , SC 
650 Dl=F2sD2=F4 
660 * 

670 IF F2<B2%+3 THEN F2-F2+3.5 


680 IF F2> B2%+3 THEN F2==F2-3.5 
690 IF F4<B1 %+3 THEN F4=-'F4 + 3„ 5 . 

700 IF F4> B 1 Z+3 THEN F4-F4-3. 5 
710 T &&&8><riUESTRA DEL HEL-I C0PTERQ8<& 
&< 

720 IF AU<1 THEN Al%-246 
730 IF AU>246 THEN Al£=l 
740 IF A2% < 1 " THEN A2£=246 
750 IF A2*>246 THEN A2£=l 
760 IF B1 % <1 THEN BlZ^l zVl%~8 
770 IF U 1%> 183 THEN B12=183 :U1£=0 
780 IF B2% < 1 THEN B22-1 :U22=0 
790 IF B2%> 1 83 THEN B.2£=183 :U2%=0 
800 IF H 1 %> 25 THEN Hl:fc=25 
810 IF Hl%<~25 THEN H12=--25 
820 IF H2%> 25 THEN H2£=25 
830 IF H2*<-25 THEN H2$^-25 
840 ? 

850 IF POINTCAl^BlSÜOl OR POINTC 
81%+8D O 1 OR POINT CAlfc+8,BlfcD 
OI OR POINTCAl^+8, Bl^+83 O 1 THEN 
GOSUB 1920 

860 IF POINT CA2%, B2%D O 1 OR POINTC 
A2%, 82^+81 O 1 OR PO I NT C A2%+8, B2% D < 
>1 OR POINT CA2%+8, B2%+83 O 1 THEN G 
OSUB 1930 

870 IF 8000 THEN S0=S0-1 
880 IF S0=8 THEN SPRITE ÜN 
890 ' 

900 IF 8 1 %> 1 80 THEN FH=4 5F04 
910 IF B2%> 1 80 THEN SH=4 íSC=-'l 2 
920 IF U)Q=0 OR QQ=0 THEN GOSUB 196 
0 

330 GOSUB1800 :GOTO 220 
340 

950 A1$=CHR$C0D 
960 A2$=CHR$t03 
970 A3$=CHR$C03 
980 A4$~CHR$ C 0 3 
930 A5$=CHR$ C 252 D 

1000 A6$-CHR$ C 33 3 
1010 A7$=CHR$ C 1 26 ] 
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1020 A8$=CHR$C 1 12^ 

1030 A$=Al$+A2$+A3$+A4$+A5$-¡-A6$-+-A6 
$ + A7$-*-A8$ :SPRITE$C03 =Á$ 

1040 A1$=CHR$C03 
1050 A2$^CHR$C03 
1060 0 3$=CHR$C03 
1070 A4$=CHR$C03. 

1080 A5$=CHR$C633 
1030 A6$=CHR$C 1323 
1100 A7$=CHR$t 1263 
1110 A8$=CHR$C 143 

1 120 A$ = A1$+A2$+A3$+A4$+A5$+A6í&-í'A7 
$+A8$ =SPRITE^C 1 3=A$ 

1130 A 1 $=CHR$ C 0 3 
1140 A2$=CHR$C03 
1150 A3$=CHR$C03 
1 160 A4$=CHR^C2523 
1170 A5$=CHR$ C 33 3 ■ 

1180 A6$=CHR$C 1263 
1130 A7$=CHR$C2483 
1200 A8$=CHR$ C 72 3 

1210 A$=A1 $+A2$+A3$+A4$+A5$+A6$+A7 
$+A8$ sSPRITESC 1 3=A$ 

1220 A 1 $=CHR$ C 0 3 
1230 A2$=CHR$C03 
1240 A3$=CHR$C03 
1250 A43==CHR$C633 
1260 A5$=CHR$C 1323 
1270 Aé$-CHR.$ C 1 26 3 


1280 A7$=CHR$ C 31 3 
1230 A8$-CHR$C 183 

1300 A$=A1$+A2$+A3$+A4$+A5$+A6$+A7 
$ + A8$ ;SPRITE$C33^A$ 

1310 A1$=CHR$C 1373 
1320 A2$=CHR$C743 
1330 A3$=CHR$C463 
1340 A4^=CHR^C183 
1350 A5$=CHR$C-2453 
1360 A6$=CHR$C203 
1370 A7$=CHR$C 1703 
1380 A8$=CHR$C683 


1390 A$=A1$+A2$+A3$+A4$+A5$+A6$+A7 
$+A8*:SPRITE$C4D=A$ 

1400 A 1 $=CHR$ C 03 
i 4 i 0 A2$=CHR$ C 0 3 
1420 A3$=CHR$ C 0 3 
1430 A4$=CHR*C323 
1440 A5$=CHR$ C 248 3 
1450 A6$=CHR$C32D 
1460 A7$=CHR$C03 
1470 A8$=CHR$C03 

1480 A$=AI$+A2$-í-A 3$+A4$+A5$ + A8$ + A7 
$+A8$ íSPRITE$C53=A$:SPRITE$C63=A$ 
1490 RETURN 
1500 " 

1510 ' 

1520 ’ 

1 530 ’ 

1540 IFINT CA1%/103=INT CA2%/103AND 
INTCB1%/103=INTCB2%/103THEN RUT SP 

1550 IFINTC CF1+G1 3/10D = INTCA2fc/10O 
AND INTCF2/10D=INTCB2%/103THEN PUT 
SPRITES2, C -21, -223 = PUT SPRITE5, C-2 
0,-203 :PUTSPRITE4, CA2*,B2*>, 15=808 
UB 1 590 = FOR T = 0TO1000 =NEXTT :PUT SPR 
ITE4, C-1 ,-303 :A2*=15:B2*=182:U2*=0 
=H2%=0 íüiQ=üJQ-l : RETURN 
1560 IFINTC CF3+G23/10 3=1NTC Al %s \ 03 
ANDINTCF4/103=INTCB1%/103THEN PUTS 
PRITES1 , C -30, 30 3 íPUTSPRI TE6, C-20, 4 
0 3 :PUTSPRITE4, CA1*,B1*3, 15 :G0SUB.15 
90 = FORT = 0101000 =NEXTT =PUT SPRITE4, 
C-4,-20 3 : Al * = 181 :B12=183 :U13=0 :H12 
= 0 :QQ-‘QQ-1 ¡¡RETURN 

1570 IFINTC CF1+G1 3^103 = INTC CF3+G23 
/I 0 3 AND INTCF2/ 103 = 1 NT CF4/103THEN 
PUT SPRITE5, C-20, -203 =PUT SPRITE6, 
C-20, 403 :PUT SPRITE4, CF1+G1 , F23 , 15 
: G0SUB1 590 :FORT=0TO 1000 íNEXTT =PUT 
SPRITE4, C-4,-203 :XX=0 :VY=0 sF4=-22 ; 
F2=— 1 2 : RETURN 
1580 SPR I TE OFF ; S0= 1 
1590 ' ¿^EXPLOSIONS^ 
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1600 S0UND2 , 0 » S0UND3, 1 3 
1610 SÜUND4, 255 :S0UND5, 15 
1620 S0UND6, 30 SS0UND7, 0 
1630 S0UND8 > 1 6 i S0UND9 , 1 6 
1640 SOUND10, 16 :SOUND13,0 
1650 FOR X=0TO 305NEXT X 
1660 S0ÜND12, 56 SS0UND13, 0 
1670 RETURN 

1680 ’ ¿ADATAS PARA LAS nONTAbiASS<&< 
& 

1690 DAT A 120, 200, 11,120,143,140,14 
0,130,120,100, 100,200,200,200,200, 
200,200,200, 200, 200,200, 200,200,20 
0,200,200,200,200, 190,150,120,120, 
110, 110, 100,200,200 
1700 DATA 125, 250, 111,231,125,116,1 
37,128,139,120,115,120,125,134,143 
, 153, 153, 182, 131 , 180,255, 137,138, 1 
83, 197, 173, 138, 127, 128, 137, 157, 167 

1710 DATA 100, 200, 100,100, 200, 100,3 
0, 120, 150, 130, 180, 170, 170, 165, 174, 
137, 182, 181 , 180, 176, 177,220, 100,12 
0, 125, 130, 135, 150, 175, 150, 155, 150, 

155.170.175.177.178.173.180.181.18 
2,183,184,184,183,182,182,181,180, 

173.178.177.171.175.166.170.180.18 
0, 180, 180, 180 

1720 DATA210, 210, 200, 130,185,186,1 
87,188,183,180,175,170,165,164,163 
,163,163,162,161,160,155,157,158,1 
53, 147, 133, 128, 187, 188, 187, 187, 187 

1730 DATA 100, 100,110,120,143,140,1 
40,130,120,100, 100,200,200,200,200 
, 200, 200,200, 200,200, 200,200, 200, 2 
00,200,280, 200,200, 190,150,120,120 
,110,1 10, 100,200.200 


1740 DATA200, 200,200, 200,200,200, 1 
90,190,190,190, 190,200, 190,185.184 


, 183, 182, 181, 180, 176, 177, 100, 100, 1 
20, 125, 130, 135, 140, 145, 150, 155, 100 
. 165, 170, 175, 177, 178, 179, 180, 181, 1 

82.183.184.184. 183. 182. 182. 181.180 
,173,178,177,171,175,166,170,180,1 

80. 180. 180. 180 

1750 DATA200, 200, 200, 203, 280,200, 1 
30,190,130,190, 130,220, 130,185.184 
, 183, 182,181,185,178,137,103,150,1 
20, 195, 130, 135, 140, 145, 150, 155, 160 
, 165, 170, 175, 177, 178, 179, 180. 181, 1 

82. 183. 184. 184. 183. 182. 182. 181. 180 
,179,178,137,171,175,196,180,190,1 

80. 190. 170. 180 

1760 S0UND6, 15:S0UND7,7:S0(JND8, 16? 
S0UND9 , 1 6 : SOUND 1 0 , 16 :S0UND1 1 , 0 'SOU 
ND 11,0: SOUND 12,16: SOUND 13,0: RETURN 

1770 ’ 

1780 ’ 

1790 ’ 

1800 S0UND6, 15 

1810 S0UND7, 135 

1820 S0UND8 , 31 

1830 S0UND9 , 31 

1840 SOUND10, 31 

1850 SOUND 11,0 :S0UND12, 1 

1860 SOUND 13, 12 

1870 RETURN 


1880 IF H1%<0 THEN H 1S=H1 5ELSEI 

F H1%>0THEN H 1 Z~H 1 %- . 5 

1890 U1%=U1%-K 8 : RETURN 

1900 IF H2% <0 THENH2%~H2%+. 5ELSE I 

F H2%>0 THEN H2S=H2S-.8 

1910 U2Z-U2Z + . 5 sRETURN 

1920 PUT SPRITES1, 020,03 :PUT SPRI 

TE4, CA1*,B12D, 1 5 : GOSUB 1 590 :'FOR T=0 

TO 1 000 íNENT T:A1*=181 :81*=183 :PUT 

SPRITE4, 020,-01) :U1%=0 :H1%=0 :UÍQ=U)0 

-1 :RETURN 

1330 PUT SPR.I TE S2, 010,-4 3 :PUT SP 
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R I TE4, C A2%, B2% 3 , 15 :GOSUB1590 sFOR T 
=0TO 1000.NEXT T:A2*=15:B2S=182:PU 
T SPRITE4, C - 1 0,-43 ;U2%=0 sH2%~0 ;QQ= 
QQ~ 1 ¡RETURN 
1940 ” 

1950 51 

1960 BEEP :CLS :PLAY n M ', ” !l , M o2vl5ACEG 
+2ECA" 

1970 SCREEN0 

1980 IFQQ^UÍO THENPRINT "EMPATE” 

1990 IF QQ> U)G THENPRINT 11 GANADOR EL. 

JUGADOR DEL TECLADO” 

2000 IF GQCUQ THENPRINT " GANADOR EL 
JUGADOR DEL JOYSTICK” 

2010 LOCATE10, 7 s PRI NT !! OTRA PARTIDA 
CS/N3 " 

2020 . INPUT T$ 

2030 IF T$= n S”THEN RUN 

2040 IFT$<> "S” THEN 2050 SPRINT” HAS 


2040 I FT $ O " S 11 THEN 2050 5PRI NTTHAS 
TA OTRA CAMPEONES” 

2050 END 


EL ROBOT SALTARIN 


10 ' Y********************* 

20 ’ * EL ROBOT SALTARIN X 
30 ’ * POR F . JOSE SALAZAR X. 

40 ’ X INSTRUCCIONES X X 
50 ’ XXXXXXXXXXXXXXXXXXXXXX 
60 CLS : SCREEN 0 

70 PRINT :PRÍNT" el ROBOT SALTARIN 
80 PRINT SPRINT 

90 PR I NT "El objetivo del Juego es conseg 
uir el mayor numero de flechas posibles. 

Para ello debes coger las llames que 
se encuentran en el 1 piso y 2 piso y 11 
egar hasta la puerta. 1 ' 

100 PRINT :PR I NT " T i enes 5 robots Coscaras 
uno extra cada oez que cons i gas algún 
a f lecha» y. 10000 puntos y 3 robots mas c 
ada uez que pases la ultima flecha." 

110 PRINT" Al principio posees 5 robots, 
cuando te quede uno, en el ángulo supe r i 
or derecho aparecerá un 1." 

120 PRINTíPRINT SPRINT" PULSA — A — PAR 
A CONTINUAR" 

130 IF INKEY$-"A" OR lNKEY$="a" THEN 140 
ELSE 130 

140 PR I NT : PR I NT " De b e s tener cuidado porq 


150 




ue hay boffos invisibles que cuando consi 
gues una flecha se suman a tu puntuacio 
n, pero-si llegan a 0, acabaras la partid 

a. " : 

150 PRINT"A1 principio cuentas con 3000 
bonos» cuando lleguen a 1000, en el an 
guio superior derecho se visualizara u 
na campana naranja, y cuando lleguen a 
500 una roja, que te avisara del peí 

1 g ro . " 

160 PR I NT : PR I NT " Cad a vez que consigas un 
a flecha, los bonos se repondrán y el ni 
ve 1 de dificultad au me n t a ra . Pu © d e s sa 

Itar hacia adelante y hacia detras. 

BUENA SUERTE'' 

170 PRINT :PRINT :PRINT” PULSA — A — PAR 
A CONTINUAR 1 ' 

180 IF I NKEY$= “A " OR INKEY$ = l 'a" TWEN 190 
ELSE 180 
190 PLAY 11 SFCF 11 
200 DN=1 : GOTO 210 

210 J-170 :B=0 :L=30 :P=162 :K«6 :HM^40 :F=162 
: I 1=5 : 10=5 :Y0=3 :PP= 162 :PT=1 35 : Q= 1 48 :UI = 16 

2 - FL = 3 ° PE=55 : TQ = 5 :S=0 ‘FH=0 : CE=3000 : RT = 1 0 
;LÜ=7 :LU=7 

220 0N SPRITE GOSUB 1790 
230 COLOR 10,1,1 
240 SCREEN 2,2 
250 ’ 

260 7 * DATAS DE SPR I TES Y 

270 ’ 

280 DATA 0, 0,0, 0, 0, 0, 0, 0 

290 DATA 1 , 3, 1 , 0, 0, 0, 0, 0 

300 DATA 0,0,0,0,0,0,0,204 

310 DATA 254,183,254,252,252,48,72,48 

320 DATA 3, 7, 2, 3, 3» 1 , 3, 5 

330 DATA 11,19,1,3,6,12,28,0 

340 DATA 192,224,64,192,192,128,192,160 

350 DATA 208,200,128,192,96,48,56,0 

360 OATA 0,0,3, 0,0,0, 0,0 

370 DATA 0, 0, 0, 0, 0, 0, 0, 0 

380 DATA 0,135,254,135,0,0,0,0 

390 DATA 0,0,0, 0,0,0, 0,0 
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400 DATA 1,59,46,56,0,0,0,0 

410 DATA 0, 0, 0, 0, 0, 0, 0, 0 

420 DATA 4,142,213,112,32,0,0,0 

430 DATA 0, 0, 0, 0, 0, 0, 0, 0 

440 DATA 0, 0, 0, 0, 0, 0, 0> 0 

450 DATA 0,0,0., 0,0, 0,0,0 

460 DATA 0,0,0,0,0,0,31,1? 

470 DATA 31 , 4, 4, 4, 4, 28, 12, 28 
480 DATA 0, 1,3,7,?,?,?,? 

490 DATA 5, 5,7,?, 7, 7, 7, 7 

500 DATA 232.244,250,253,253,253,253,253 

510 DATA 253,253,253,253,253,253.253,253 

520 DATA 0, 0, 0, 1 , 0, 0, 0, 1 

530 DATA 1 , 0, 0, 0, 0, 0, 0, 0 

540 DATA 3,23,126,254,254,124,124,152 

550 DATA 136,0,0,0.0,0,0,0 

560 DATA 0,0, 0,0, 0,0, 0,0 

570 DATA 0, 0, 0, 0, 0, 0, 0, 0 

580 DATA 7, 7, 3, 3, 3, 3, 3, 3 

590 DATA 0,0, 0,0, 0,0, 0,0 

600 FOR Y=1 TO 8 

610 A$=" ! ' :FOR X=1 TO 32 í READ D :A$=A$+CHR 
$CD3 :NEXT X : SPR I TE$ C Y 3 =A$ 

620 NEXT Y 

630 LINE C0,03-Í19, 1951, 1, BF 
640 LINE C 235 , 03 - C 255 , 1 92 1.1, BF 
650 LINE C50, 0D — C200, 101 , 7, B 
660 FOR JK=50 TO 200 STEP 30 
670 LINE C JK, 03-C JK, 101 , 7 
680 NEXT JK 
690 * 

700 ’ X CREACION DEL SUELO X 
710 * 

720 DREN " GRP “ ,! AS#1 

730 FOR F=20 TO 235 STEP 8 

740 FGR D=15 TO 190 STEP 55 

750 PSET CF, D 3 SPRINT#1, CHR$ 1 2 1 5 1 

760 NEXT D, F :GOTO 820 

770 K--K+2 i GOTO 820 

780 L=30 : P=P 

790 ’ 
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800 

’ X 

UISU8LIZ8CIÜN 

DE SPRITES 

810 

’ 





820 

PUT 

SPRITE 

0, C 180, 

1623 , 3, 

1 

830 

PUT 

SPRITE 

7, C 60, 162 3 ,3, 1 


840 

PUT 

SPRITE 

8, C 140, 

1363,7, 

4 

850 

PUT 

SPRITE 

1 , CL, P3 

, 1 1 , 2 


860 

PUT 

SPRITE 

2, C 100, 

1363,7, 

4 

870 

PUT 

SPRITE 

1 1 , C 2 1 5 

,853,3, 

I I 

880 

PUT 

SPRITE 

4 , C21 5 , 

1403 ,3, 

10 

830 

PUT 

SPRITE 

12, C 180 

, 1073,3 

, 1 

300 

PUT 

SPRITE 

13, C 125 

, 1073 , 3 

, 1 

310 

PUT 

SPRITE 

14, C 55 , 

1073,2, 

x 

320 

PUT 

SPRITE 

5, C215, 

30 3,15, 

6 

330 

PUT 

SPRITE 

15, C 75 , 

803 , 7, 4 


340 

PUT 

SPRITE 

16, C 160 

,803,7, 

4 

350 

PUT 

SPRITE 

6, C HH , F 3 , FL , 3 


360 

PUT 

SPRITE 

17, C60, 

523 , 3, 1 


370 

PUT 

SPRITE 

18,- C 30 , 

52 3,3, 1 


380 

PUT 

SPRITE 

13,'C 140 

, 52 3,2, 

i 

330 

PUT 

SPRITE 

20, C 40 , 

243,7,4 



1000 RUT SPRITE 21 , C 1 10, 243 , 7, 4 
1010 RUT SPRITE 22, C 1 70, 24 3,7,4 
1020 GOTO 1070 

1030 UJ" 1 62 5 Q= 1 48 ;P=P.+ 1 10 -L0~'7 iLU=7 
1040 ’ 

1050 ’ * nOUIMIENTO DEL ROBOT X 
1060 ’ 

1070 D=STICKC03 : SPRITE O N 
1080 HH=HH-YO ” I F WH<5 THEN GOTO 1260 
1030 IF D=3 THEN BEEP : L=Lt2 : P^P+2 
1100 IF D—7 THEN BEEP -L~ L~2 lP~Pt2. 

1110 IF D=1 THEN BEEP :L=L +5 :P=P-K:L=L-5s 
IF P <PT THEN K=-K+2 

1120 IF 0=2 THEN BEEP íL=L+3 : P=P~K i IF P<P 
T THEN K--K+2 

1130 IF D-8 THEN BEEP :L=L-3 :P=F -K : IF P<P 
T THEN K=*-K+2 

1140 IF D=0 THEN PÜT SPRITE 1,CL, 63,15.2 
;p-p+2 

1150 IF D~5 THEN P=P+2 

1160 IF D=4 THEN P=Pf2 

1170 IF D“6 THEN P=P+2 

1180 IF L <20 THEN L“20 
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1130 IF P <20 THEN P=20 

1200 IF L> 200 A NO P>70 AND P < 1 30 THEN GO 
TQ 1530 

1210 IF L> 200 AND P>140 THEN GOTO 1540 
1220 IF L> 200 AND P<70 AND P>10 THEN 107 
0 

1230 IF P>PP THEN P=PP;GOTO 770 

1240 GOTO 820 

1250 BEEPíGOTO 770 

í 260 PL A Y SB : HH=200 : A= I NT C RND C 1 3^23 1- 1 

1270 £3=1 NT C RND C 1 3 *7 3 

1280 CE=CE-100;IF CE <=0 THEN 1350 

1290 IF CE<=1000 THEN PUT SPRITE 24.C15, 

03,9, LO 

1300 IF CE <=500 THEN PUT SPRITE 25, 
C 30 ,03,8, LO 
1310 ’ 

1320 ’ * UELOCIDAD, COLOR Y ALTURA X 
1330 5 X DE LAS FLECHAS * 

1340 GG=INTCRNDC 1 D*53 

1350 IF GG=0 THEN FL=3 

1360 IF GG=1 THEN FL=7 

1370 IF GG=2 THEN FL=3 

1380 IF GG=3 THEN FL=10 

1330 IF GG=4 THEN FL = U 

1400 IF GG=5 THEN FL=15 

1410 IF B=0 THEN Y0=6i-nN 

1420 IF B=1 OR B=2 THEN YÜ=2~?-nN 

1430 IF B=2 OR B=3 THEN Y0=3i-f1N 

1440 IF 6=4 OR B=5 THEN Y0=4^r¡N 

1450 IF B=6 THEN Y0=5*H1N 

1460 IF B=7 THEN Y0=7+nN 

1470 IF A=1 THEN F=Q 

1480 IF A=2 THEN F=U 

1430 GOTO 1030 

1500 ’ 

1510 ’ X LLAUE COGIDA * 

1520 ’ 

1530 I 1=10 íS=S+100 

1540 SOUND 0,0 i SOUND 1,5: SOUND 2,0 
1550 SOUND 3,13” SOUND 4,255íS0UND 5,15 
1560 SOUND 6, 30 ‘ SOUND 7,0 
1570 SOUND 8,16- SOUND 3,16:SOUND 10,16 


m 


1580 SOUND 11,0:SOUND 12»5:SÜUND 13,0 

1530 FÜR T=1 T O 20iNEXT T 

1600 SOUND 12» 56 : SOUND 13,0 

1610 S=S+100: 10=10 :L=20sP=P-55 :FP=PP- 55 : 

PT=PT-55 

1620 Q=G~55 íUi=U~55 
1630 GOTO 720 
1640 ’ 

1650 ’ * CONSECUCION DE LA FLECHA * 

1660 ’ 

1670 L0 = 1 0 : PUT SPRITE 24 , Q5 S 0},9, LO : LU-- 
1 0 : PUT SPRITE 25 » C 30 » 03 * 8, LU 5 S=S+CE :CE=3 
000:PH=FH+1 :S=S+3005IF FE>^205 THEN 2030 

1680 PUT SPRITE 27 , C PE , 3 .1 » 5 , 3 
1630 PE=PE+30 

1700 PUT SPRITE 26, C100, 803,7,4 
1710 f1N = riN+i:IF Í1N> =7 THEN HN^7 
1720 TG=TQ+1 :RT=10:PUT SPRITE 23,C210,03 
, 15, RT 

1730 L=30 :PP=162 :PT=135 
1740 11=5:10=5 
1750 GOTO 1030 
1760 ’ 

1770 ’ X SOLAPAN I EN TO DE FIGURAS X 
1780 * 

1730 SPRITE OFF 

1800 SOUND 0,0 "• SOUND 1,5 

1810 SOUND 2,0: SOUND 3,13 

1820 SOUND 4 , 255 : SOUND 5,15 

1830 SOUND 6 » 30 : SOUND 7,0 

1840 SOUND 8,16 : SOUND 3, 16 '-SOUND 10,16 

1850 SOUND 11,0: SOUND 12,5:S0UND 13,0 

1860 FOR GH=1 TO 45:NEXT GH^SOUND 12,56: 

SOUND 13,0 

1870 FOR E=1 TO 150:NEXT E 

1880 HH=200 :TQ=TQ~1 : IF TQ=0 THEN 1350 

1830 IF TQ=1 THEN RT=8 

1300 PUT SPRITE 23» C210, 03 , 15, RT 

1310 RETURN 780 

1320 ’ 

1330 ’ X FINAL PARTIDA X 
1340 ” 
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1350 CLS s SCEEEN 0 

1360 LOCATE 11, SOCOLOR 3 s PR INT"SCORE" 
1370 LOCATE 11, 5: COLOR 9 SPRINT ¡S; 

1380 LOCATE 7,7sC0L0R 3 SPRINT '‘HAS LOGRA 
DO" SFHSSJF FH=1 THEN PRI NT "FLECHA" EL SE 
PR I NT " FLECHAS " 

1330 IF S<4000 THEN LOCATE 1 1 » 3 s PR r NT " i Q 
UE NAL ! " 

2000 IF S> 4000 AND S<8000 THEN LOCATE i 1 
, 9 SPRINT ,: ! BIEN ! 

2010 IF S> 8000 AND SO7000 THEN LOCATE 1 
1,3 SPRINT " ! HUV BIEN!" 

2020 IF S> 17000 THEN LOCATE 11, 3 SPRINT " 

! V A TE ÜALE ! " 

2030 LOCATE 5,14sC0L0R 1 5 s PR I NT " PULSA LA 
BARRA PARA EP1PE2AR " 

2040 FOR J=1 TO 400 s NEXT J 
2050 IF I NKEY$= " THEN RUN ELSE 2050 
2060 * 

2070 * X , PASE DE FLECHA X 
2080 ’ 

2030 PLAY" ABDBDBA" :PE=55 :S=S+10000 :TQ=TG 
+ 2 s RT- 1 0 s PUT SPRITE 23,1210,03,15 RT 
2100 GOTO 1680 


EL ARCHIVO EN CASA 


.10 SCREEN 3 ¡COLOR 15.4,11 
15 LINE C 10, 10 3— C 250, 1823 , 3, B 
1? LINE C 15, 153 -C 245, 177 3 , 3» B 

19 PAINT Cll, 113,9,3 

20 OPEN “GRP : " AS #1 
30. PRESET C25.803 

40 PRINT #1, 11 ARCHIUO’ 1 
50 PLAY “ABCDEFFEDC 11 
55 GLOSE 

60 FOR U=1 TO 4000 ¡NEXT 
70 GOTO 155 

100 REN X********************* 

110 REN X EL ARCHIUO EN CASA X 
120 REN X SUPER JUEGOS X 

130 REN X EXTRA.' X 

140 REN XXXXXXXXXXXXXXXXXXXXXX 
150 REN 

155 CLS ¡SCREEN 0 ¡COLOR 1,7 
160 CLEAR 3000 

170 REN DINENSIONA SERIES PARA CARGAR 
REGISTROS Y NONBRES DE REGISTRO 
180 DIN R$C5003,N$C5003 
190 COLOR 1,7 
200 CLS 

210 REN INPRINE NENU 
220 LOCATE 9,1 


230 PRINT “MENU DEL ARCHIUO” 

240 LOCATE 0,4 

250 PRINT ” 1 » Introducir nueoos datos o 
iniciación de un archivo”: PRINT 
260 PRINT ”2. Corregir datos ” :PRINT 
220 PRINT ”3. U i sual i zac i on de datos en 
la pantalla” :PRINT 

280 PRINT "4, Listado de datos en la i mp 
reso ra n SPRINT 

290 PRINT ”5. Búsqueda de datos ” :PRINT 
300 PRINT "6. Clasificar datos 11 SPRINT 
310 PRINT "7. Cargar datos de la cinta”: 
PRINT 

320 PRINT ”8. Grabar en la c í nt a” :PRINT 
330 LOCATE 0,23 

340 PRINT “Seleccione la opc ion numero.. 
11 

350 REO CALIDA LA RESPUESTA ’ 

360 A$=INKEY$ 

370 IF A#- n " THEN 360 
380 BEEP 

398 IF A$ <” 1 ” OR A$> ”8” THEN 370 

400 ON CALCADO GOTO 420,610,1210,1330.14 

40, 1860, 1980,2120 

410 REM NUEUO REGISTRO 

420 CLS 

430 LOCATE 0,6 

440 INPUT "Es esta una nueva f ¡cha”;Q$ 
450 IF LEFT $ C G$ , 1 1 = ” s ” OR LEFT$CQ$, 1 3 = ”S 
" THEN J=1 ELSE J=J+1 
460 CLS 

470 LOCATE 0,3 

480 PRINT 11 Introducir todos los datos d 
e la f i ch a- í n d i que FIN para finalizar 

n 

490 PRINT SPRINT 

500 LINE INPUT "Nombre de la ficha? " ;N# 
CJ1 

510 IF N$C JD= n FIN” OR N$CJ}= M fin M THEN 5 
80 

520 PRINT 

530 LINE INPUT "Información? " ;R$CJ3 
540 IF R$C JD=”FIN” OR R#C J3="f i n " THEN 5 
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80 

550 PRINT^PRINT 
560 J=J+1 
570 GOTO 500 
580 J=J-1 
590 GOTO 200 

600 REfl MODIFICACION DE REGISTROS 
610 CLS 
620 N=0 

630 LOCATE 0,3 

640 INPUT "Nombre de la. ficha";T$ 

650 PRINT :PRINT 

660 n=i 

670 IF T$=N$Ct13 THEN N=M;GOTO 740 
680 M=M+1 

690 IF MOJ THEN 670 
700 IF N<>0 THEN 720 

710 PRINT "Esta, ficha ";T$;" no ha sido 
cargada" 

720 GOSUB 2290 
730 GOTO 200 
740 PRINT N$CN3 “PRINT 
750 PRINT R$CN3 ¡PRINT 
760 INPUT "Esta ficha" íQ$ 

770 IF LEFT$CQ$, 13="S n OR LEFT#CQ$, 13 = w s 

" THEN 800 

780 GOTO 680 

790 REfl MODIFICAR MENU 

800 CLS 

810 LOCATE 0,4 

820 PRINT "1= Borrar datos" íPRINT 

830 PRINT "2. Corregir nombre de la fich 

a" «PRINT 

840 PRINT "3= Corregir información" sPRI 
NT 

850 PRINT "4, Añadir i nf o rmac i on " SPRINT 
860 LOCATE 0, 14 

870 PRINT "Seleccionar la op c í on . „ . " íPRI 
NT 

880 A$==INKEY$ 

890 IF A$="" THEN 880 
300 BEEP 

910 IF A#<" 1" OR A#>"4" THEN 880 


920 ON UAL CA$3 GOTO 940,1050,1100,1150 

930 REM BORRAR REGISTROS 

940 FOR M=N TO J 

950 N$CM3=N$CM+1 3 

960 R$CM3~R$CM+1 3 

970 NEXT M 

980 N$ C J3 = " " 

990 R$ C J3 = " n 
1000 J=J-1 

1010 PRINT "Grabac ion 
1020 GOSUB 2290 
1030 GOTO 200 
1040 REO MODIFICAR 
1050 INPUT "Ficha 
1060 PRINT :PRINT"Nomb re 
1070 GOSUB 2290 
1080 GOTO 200 

1090 REM MODIFICAR INFORMACION 
1100 INPUT "Nueua información" 

1110 PRINT: PRINT" Inf o rmac í ón 
1120 GOSUB 2290 
1130 GOTO 200 

1140 REM AÑADIR INFORMACION 
1150 INPUT "Nueva í nf o rmac i on : 

1160 R$CN3=R$CN3+" ~ "+T$ 

1170 PRINT » PRINT "Nue^a información añ 
adida" 


bo r rada" 


NOMBRE 
nueva" ;N$CN3 

camb i ado " 


' :R#CN3 
camb rada" 


?T$ 


1180 GOSUB 2290 
1190 GOTO 200 

1200 REM DISPLAVA REGISTROS 
1210 CLS 

1220 D$=STR ING$C38» 2193 
1230 FOR M=1 TO J 

1240 PRINT :PRINT"F í cha cargada : "N$CM3 
1250 PRINT :PRINT R$CM3 
1260 PRINT SPRINT 0$ 

1270 FOR DE=1 TO 100:N£XT DE 

1280 GOSUB 2320 

1290 NEXT M 

1300 GOSUB 2290 

1310 GOTO 200 

1320 REM LISTADO DE REGISTROS POR IMPRES 
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1330 CLS 

1340 LOCATE 0*6 

1350 LINE INPUT "Entrar con la. impresora. 

prepa.ra.da." íNU$ 

1360 FOR n=l TO J 
1370 LPRINT 

1380 LPRINT "No mb re de la f í c h a : " ;N$CÍ13 

1390 LPRINT 

1400 LPRINT R$Cf13 

1410 LPRINT 

1420 NEXT {1 

1430 GOTO 200 

1440 REN BUSCA REGISTROS 

1450 CLS 

1460 LOCATE 0,6 

1470 PRINT "1. Nombre de la f i cha" SPRINT 

1480 PRINT "2. flenu" : PRINT 
1490 LOCATE 0, 12 

1500 PRINT "Seleccionar opc i on , , , " JPRINT 

1510 A$=INK£Y# 

1520 IF A$= " " THEN 1510 
1530 BEEP 

1540 IF A$ < " 1 " OR A$> "2" THEN 1510 
1550 ON UAL C A#3 GOTO 1560,1700 
1560 INPUT "Nombre de la ficha" iT$ 

1570 PRINT 
1580 F =0 

1590 FOR M=1 TO J 

1600 IF N$Cm<>T$ THEN 1640 

1610 PRINT "Nombre de la f i cha : " ;N$Cf13 

1620 PRINT : PRINT R$Cf13 

1630 F=1 

1640 NEXT fl 

1650 IF F=1 THEN 1670 

1660 PRINT :PRINT"Grabac i on no cargada"K 
1670 GOSUB 2230 
1680 GOTO 200 
1690 REfl CADENAS 

1700 INPUT "Búsqueda de un dato";T$ 

1710 F=0 

1720 FOR M=1 TO J 
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1730 X=INSTRCN$CM } , T$D 
1740 IF XO0 TREN 1770 
1750 X= INSTRC R$ C M 1 , T$ D 
1760 IF X=0 THEN 1800 

1770 PRINT :PRINT"Nomb re de la fichas” ;N$ 
CM3 

1780 PRINT sPRÍNTR^CílD SPRINT 

1730 F= 1 

1800 NEXT fl 

1810 IF F= 1 THEN 1830 

1820 PRINT :PRINT”Grabac i on no cargada” 
1830 GOSUB 2290 
1840 GOTO 200 

1850 REM CLASIFICA REGISTROS, OBSERUESE E 

L USO DE LA SENTENCIA SbJAP QUE INTERCAÍ1B 

IA EL UALOR DE DOS UARI ABLES, EN ESTE CAS 

O ENTRE UNA SERIE DE SUBINDICE f1,Y OTRA 

DE SUBINDICE M + l 

1860 CLS 

1870 LOCATE 0,6 

1880 PRINT "So rt i ng . . . ” 

1830 M=1 

1900 IF N^Cm<N$CN+n THEN 1940 

1910 süjap nscmd.nscm+u 
1920 suap R$cm.R$cri+n 

1930 GOTO 1890 
1940 M-Jl+1 

1950 IF HOJ THEN 1300 
1960 GOTO 200 

1970 REM CARGA DESDE EL CASSETTE 

1980 CLS 

1930 LOCATE 0,6 

2000 PRINT "Cargando desde el cassette" 
SPRINT 

2010 LINE INPUT "Presione PLAY y RETU 
RN para cargar desde el casse tte ” iNU# 
2020 PRINT SPRINT "Cargando».," 

2030 OPEN "CAS sFILE" FOR INPUT AS 1 

2040 INPUT #1,J 

2050 FOR M=1 TO J 

2060 INPUT#1 , N$CF1D 

2070 INPUT #l,R$Cm 

2080 NEXT M 
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2090 CLOSE 
2100 GOTO 200 

2110 REfl GRABA EN CASSETTE 

2120 CLS 

2130 LOCATE 0,6 

2140 PRINT M Gra.ba.r en el c asee tt e " SPRINT 

2150 LINE INPUT "Presione REC+PLAY y 
RETURN para grabar en el casse tte " ;NU$ 
2160 PRINT. :PRINT"Grabando. . . " 

2170 MOTOR ON 
2180 GOSUB 2290 
2190 nOTOR OFF 

2200 OPEN "CAS ;FILE" FOR OUTPUT AS 1 

2210 PRINTttl „ J 

2220 FOR M=1 TO J 

2230 PRINT#1 , N$CI13 

2240 PRINT#l,R#Cf13 

2250 NEXT M 

2260 CLOSE 

2270 GOTO 200 

2290 FOR DE=1 TO 25005NEXT DE 

2296 REO RETARDO PARA SALIDA A SUBRUTINA 

2290 FOR DE=1 TO 2500:NEXT DE 
2300 RETURN 

2310 REfl APRETAR TECLA PARA SUBRUTINA 
2320 Z$=INKEY$ 

2338 IF Z$= " '* THEN 2360 
2340 2$=INKEY$ 

2350 IF Z$=" n THEN 2340 
2360 RETURN 
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